challenge-198/feng-chang/raku/ch-1a.raku


1
2
3
4
5
6
7
8
9
10
11
12

#!/bin/env raku

unit sub MAIN(*@N);

if +@N < 2 { 0.put; exit }

^ (@N.elems - 1)          ==>
map { @N[$_+1] - @N[$_] } ==>
my @gaps; @gaps           ==>
grep { $_ == @gaps.max }  ==>
elems()                   ==>
put();