diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-10-25 10:41:25 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-10-25 10:41:25 +0200 |
| commit | 4629e3f70fdf73637dc6d6d14b797ba92d9ef0b0 (patch) | |
| tree | 7ae39c804ea9cceb76b2a2d9fa7b53b92338fb8b | |
| parent | 9af4627df80018091f1bbf86c07ede1eeeb6548f (diff) | |
| download | perlweeklychallenge-club-4629e3f70fdf73637dc6d6d14b797ba92d9ef0b0.tar.gz perlweeklychallenge-club-4629e3f70fdf73637dc6d6d14b797ba92d9ef0b0.tar.bz2 perlweeklychallenge-club-4629e3f70fdf73637dc6d6d14b797ba92d9ef0b0.zip | |
Task 1 done
| -rwxr-xr-x | challenge-136/luca-ferrari/raku/ch-1.p6 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/challenge-136/luca-ferrari/raku/ch-1.p6 b/challenge-136/luca-ferrari/raku/ch-1.p6 new file mode 100755 index 0000000000..aa3bf36984 --- /dev/null +++ b/challenge-136/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,5 @@ +#!raku + +sub MAIN( Int $m where { $m > 0 }, Int $n where { $n > 0 } ) { + ( [gcd] $m, $n ) %% 2 ?? '1'.say !! '0'.say; +} |