Babbage problem: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) m →{{header|Perl 6}}: use integer mod |
|||
| Line 396: | Line 396: | ||
# print the integer and square and exit if the square modulo 1000000 is equal to 269696 |
# print the integer and square and exit if the square modulo 1000000 is equal to 269696 |
||
print "{$integer}² equals $square" and exit if $square |
print "{$integer}² equals $square" and exit if $square mod 1000000 == 269696; |
||
}</lang> |
}</lang> |
||