diff options
Diffstat (limited to 'challenge-204/mark-anderson/raku/ch-1.raku')
| -rw-r--r-- | challenge-204/mark-anderson/raku/ch-1.raku | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-204/mark-anderson/raku/ch-1.raku b/challenge-204/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..e7c4a2f3db --- /dev/null +++ b/challenge-204/mark-anderson/raku/ch-1.raku @@ -0,0 +1,13 @@ +#!/usr/bin/env raku +use Test; + +ok monotonic-array(1,2,2,3); +nok monotonic-array(1,3,2); +ok monotonic-array(6,5,5,4); + +sub monotonic-array(*@a) +{ + return 1 if [<=] @a; + return 1 if [>=] @a; + return 0 +} |