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

5 lines
93 B
Prolog

hailstone(27,X),
length(X,112),
append([27, 82, 41, 124], _, X),
append(_, [8, 4, 2, 1], X).