diff options
| -rw-r--r-- | challenge-246/0rir/raku/ch-1.raku | 27 | ||||
| -rwxr-xr-x | challenge-246/0rir/raku/recur.raku | 14 |
2 files changed, 41 insertions, 0 deletions
diff --git a/challenge-246/0rir/raku/ch-1.raku b/challenge-246/0rir/raku/ch-1.raku new file mode 100644 index 0000000000..b200e393bd --- /dev/null +++ b/challenge-246/0rir/raku/ch-1.raku @@ -0,0 +1,27 @@ +#!/usr/bin/env raku +# :vim ft=raku sw=4 expandtab # π¦ β
βͺβ©βββ β‘ β’ Β«β€ Β» β΄ +use v6; +use Test; + +=begin comment + +246-1: 6 out of 49 +Submitted by: Andreas Voegele +6 out of 49 is a German lottery. + +Write a script that outputs six unique random integers from the range 1 to 49. + +Output +3 +10 +11 +22 +38 +49 +=end comment + +my @l = 1 β¦ 6; +say "Output:"; +.say for (1β¦49).pick( 6); +exit; + diff --git a/challenge-246/0rir/raku/recur.raku b/challenge-246/0rir/raku/recur.raku new file mode 100755 index 0000000000..1f0506679c --- /dev/null +++ b/challenge-246/0rir/raku/recur.raku @@ -0,0 +1,14 @@ +#!/usr/bin/env raku +# :vim ft=raku sw=4 expandtab # π¦ β
βͺβ©βββ β‘ β’ Β«β€ Β» β΄ +use v6; + +sub MAIN( *@in ) { + my ($p, $q, @a) = @inΒ».Int; + + for ^3 { + @a.push: $p Γ @a[*-2] + $q Γ @a[*-1]; + } + + say "P $p Q $q Ary: @a.raku()"; +} + |