diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-02-06 21:46:45 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-02-06 21:46:45 +0000 |
| commit | ce1824cc6b74863e5a430673a7d68659ee7cbbdc (patch) | |
| tree | 4aef5b2c606feed461ce64c6762206e10ea7f246 /challenge-098/markus-holzer | |
| parent | 0eb5350cb90175035898249c60e4a87b6f001880 (diff) | |
| download | perlweeklychallenge-club-ce1824cc6b74863e5a430673a7d68659ee7cbbdc.tar.gz perlweeklychallenge-club-ce1824cc6b74863e5a430673a7d68659ee7cbbdc.tar.bz2 perlweeklychallenge-club-ce1824cc6b74863e5a430673a7d68659ee7cbbdc.zip | |
- Added solutions by Markus Holzer.
Diffstat (limited to 'challenge-098/markus-holzer')
| -rw-r--r-- | challenge-098/markus-holzer/raku/ch-1.raku | 4 | ||||
| -rw-r--r-- | challenge-098/markus-holzer/raku/ch-2.raku | 7 |
2 files changed, 11 insertions, 0 deletions
diff --git a/challenge-098/markus-holzer/raku/ch-1.raku b/challenge-098/markus-holzer/raku/ch-1.raku new file mode 100644 index 0000000000..6745fa8354 --- /dev/null +++ b/challenge-098/markus-holzer/raku/ch-1.raku @@ -0,0 +1,4 @@ +sub read-n( $filename, $characters ) { + state %handles; + .readchars( $characters ) + given %handles{ $filename.IO.absolute } //= $filename.IO.open( :r ) } diff --git a/challenge-098/markus-holzer/raku/ch-2.raku b/challenge-098/markus-holzer/raku/ch-2.raku new file mode 100644 index 0000000000..814c3cce77 --- /dev/null +++ b/challenge-098/markus-holzer/raku/ch-2.raku @@ -0,0 +1,7 @@ +multi sub insert-pos(@N, $N ) { + $_ + so @N[ $_ ] != $N given @N.grep( * <= $N, :k ).tail +} + +multi sub insert-pos(@N, $N where $N > @N[*-1] ) { +@N } + +multi sub insert-pos(@N, $N where $N < @N[0] ) { 0 } |