diff options
| -rw-r--r-- | challenge-191/wambash/raku/ch-1.raku | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-191/wambash/raku/ch-1.raku b/challenge-191/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..01321c5684 --- /dev/null +++ b/challenge-191/wambash/raku/ch-1.raku @@ -0,0 +1,18 @@ +#!/usr/bin/env raku + +sub twice-largest (+@list) { + so @list.max < @list.one * 2 +} + +multi MAIN (Bool :test($)!) { + use Test; + is twice-largest(1,2,3,4),False; + is twice-largest(1,2,0,5),True; + is twice-largest(2,6,3,1),True; + is twice-largest(4,5,2,3),False; + done-testing; +} + +multi MAIN (*@list) { + say twice-largest( @list ) ?? 1 !! -1 +} |