Skip to content

Instantly share code, notes, and snippets.

@synthmeat

synthmeat/exercise.raku Secret

Last active March 7, 2020 13:45
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save synthmeat/635fdda6ff7dd52fedbf7e9b3ce81dd6 to your computer and use it in GitHub Desktop.
Save synthmeat/635fdda6ff7dd52fedbf7e9b3ce81dd6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
exercise.raku
#!/bin/env perl6
my $n = FatRat.new: 0, 1;
my $sum = FatRat.new: 0, 1;
loop {
$sum += 1 / 2**$n++;
put $sum.^name;
put .numerator, '/', .denominator given $sum;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment