RosettaCodeData/Task/Happy-numbers/SETL/happy-numbers-2.setl
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
125 B
Text

happy := [];
n := 1;
until #happy = 8 loop
if is_happy(n) then happy with:= n; end if;
n +:= 1;
end loop;
print(happy);