RosettaCodeData/Task/Happy-numbers/SETL/happy-numbers-2.setl
2023-07-01 13:44:08 -04: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);