Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
27
Task/Happy-numbers/Phix/happy-numbers.phix
Normal file
27
Task/Happy-numbers/Phix/happy-numbers.phix
Normal file
|
|
@ -0,0 +1,27 @@
|
|||
function is_happy(integer n)
|
||||
sequence seen = {}
|
||||
integer k
|
||||
while n>1 do
|
||||
seen &= n
|
||||
k = 0
|
||||
while n>0 do
|
||||
k += power(remainder(n,10),2)
|
||||
n = floor(n/10)
|
||||
end while
|
||||
n = k
|
||||
if find(n,seen) then
|
||||
return 0
|
||||
end if
|
||||
end while
|
||||
return 1
|
||||
end function
|
||||
|
||||
integer n = 1
|
||||
sequence s = {}
|
||||
while length(s)<8 do
|
||||
if is_happy(n) then
|
||||
s &= n
|
||||
end if
|
||||
n += 1
|
||||
end while
|
||||
?s
|
||||
Loading…
Add table
Add a link
Reference in a new issue