fork(5) download
copy 
  1. sub integer_root ( Int $p where * >= 2, Int $n --> Int ) {
  2.     my Int $d = $p - 1;
  3.  
  4.     my $guess = '1' ~ ( '0' x ($n.chars / $p) );
  5.  
  6.     my $iterator = { ( $d * $^x   +   $n div ($^x ** $d) ) div $p };
  7.  
  8.     my $endpoint = { $^x == $^y|$^z };
  9.  
  10.     return [min] (+$guess, $iterator … $endpoint)[*-1, *-2];
  11. }
  12.  
  13. say integer_root( 2, 2 * 100 ** 2000 );
Runtime error #stdin #stdout #stderr 1.61s 194240KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
===SORRY!=== Error while compiling prog.pl
Two terms in a row
at prog.pl:10
------>     return [min] (+$guess, $iterator ⏏… $endpoint)[*-1, *-2];
    expecting any of:
        postfix
        infix stopper
        infix or meta-infix
        statement end
        statement modifier
        statement modifier loop
https://ideone.com/PzMU1C
language:
Perl (perl 2018.12)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!