Babbage problem: Difference between revisions
Content added Content deleted
mNo edit summary |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add Perl 6 example) |
||
Line 106: | Line 106: | ||
}</lang> |
}</lang> |
||
<pre>25264</pre> |
<pre>25264</pre> |
||
=={{header|Perl 6}}== |
|||
{{works with|Rakudo|2016.03}} |
|||
This could certainly be written more concisely. Extra verbiage is included to make the process more clear. |
|||
<lang perl6># For all positives integers from 1 to Infinity |
|||
for 1 .. Inf -> $integer { |
|||
# calculate the square of the integer |
|||
my $square = $integer²; |
|||
# print the integer and square and exit if the square modulo 1000000 is equal to 269696 |
|||
print "{$integer}² equals $square" and exit if $square % 1000000 == 269696; |
|||
}</lang> |
|||
{{out}} |
|||
<pre>25264² equals 638269696</pre> |
|||
=={{header|Processing}}== |
=={{header|Processing}}== |