11 lines
329 B
Text
11 lines
329 B
Text
FindHappiness := proc( N )
|
|
local count := 0;
|
|
local T := table();
|
|
for local i while count < N do
|
|
if Happy?( i ) then
|
|
count := 1 + count;
|
|
T[ count ] := i
|
|
end if
|
|
end do;
|
|
{seq}( T[ i ], i = 1 .. count )
|
|
end proc:
|