Babbage problem: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 251:
}</lang>
<pre>25264</pre>
=={{header|Perl}}==
<lang Perl>#!/usr/bin/perl
use strict ;
use warnings ;
my $current = 0 ;
while ( ($current ** 2 ) % 1000000 != 269696 ) {
$current++ ;
}
print "The square of $current is " . ($current * $current) . " !\n" ;</lang>
{{out}}
<pre>The square of 25264 is 638269696 !</pre>
=={{header|Perl 6}}==
| |||