RosettaCodeData/Task/Hailstone-sequence/Prolog/hailstone-sequence-2.pro

5 lines
93 B
Prolog
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
hailstone(27,X),
length(X,112),
append([27, 82, 41, 124], _, X),
append(_, [8, 4, 2, 1], X).