Added beginner solution

In Prolog; soultion is a two-liner.