RosettaCodeData/Task/Babbage-problem/Lambdatalk/babbage-problem.lambdatalk

8 lines
49 KiB
Plaintext

{S.map {lambda {:n}
{if {= {% {* :n :n} 1000000} 269696}
then :n{sup 2} = {* :n :n}
else}}
{S.serie 2 100000 2}}
-> 25264^2 = 638269696 99736^2 = 9947269696
...