diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-28 19:39:11 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-28 19:39:11 +0100 |
| commit | 2300991e60b2f8a00aaa1d61ec80bda2a5821812 (patch) | |
| tree | 00890ec239d7ebaeb0e340acacfbed3635dcbbc8 /challenge-066 | |
| parent | 5a262857d789208d6713a3a1131bb6835ac8bc3c (diff) | |
| parent | 95bda327d52f739d9d61efe71365c4265ff3bffc (diff) | |
| download | perlweeklychallenge-club-2300991e60b2f8a00aaa1d61ec80bda2a5821812.tar.gz perlweeklychallenge-club-2300991e60b2f8a00aaa1d61ec80bda2a5821812.tar.bz2 perlweeklychallenge-club-2300991e60b2f8a00aaa1d61ec80bda2a5821812.zip | |
Merge branch 'master' of git://github.com/holli-holzer/perlweeklychallenge-club into holli-holzer-master-066
Diffstat (limited to 'challenge-066')
| -rw-r--r-- | challenge-066/markus-holzer/raku/ch-1.raku | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/challenge-066/markus-holzer/raku/ch-1.raku b/challenge-066/markus-holzer/raku/ch-1.raku index 2ae4aea92b..eec3840ce7 100644 --- a/challenge-066/markus-holzer/raku/ch-1.raku +++ b/challenge-066/markus-holzer/raku/ch-1.raku @@ -1,19 +1 @@ -subset NonZeroInt of Int where * != 0; - -multi sub infix:<subdiv>( Int $a, NonZeroInt $b where $a.sign == $b.sign ) { - ( $a, * - $b, * < $b ).elems - 1 -} - -multi sub infix:<subdiv>( Int $a, NonZeroInt $b ) { - - ( -$a subdiv $b ) -} - -multi sub infix:<subdiv>( $, 0 ) { - 1 / 0 -} - -say 5 subdiv 2; -say -5 subdiv -2; -say 5 subdiv -2; -say -5 subdiv 2; -say -5 subdiv 0; +#nevermind
\ No newline at end of file |