challenge-133/arne-sommer/raku/integer-square-root


1
2
3
4
5
6
7
8
9
10
11

#! /usr/bin/env raku

unit sub MAIN (Int $N where $N > 0);

for 2 .. Inf -> $guess
{
  my $squared = $guess * $guess;

  (say $guess;    last) if $squared == $N;
  (say $guess -1; last) if $squared > $N;
}