12 lines
223 B
Factor
12 lines
223 B
Factor
|
USING: kernel math prettyprint sequences ;
|
||
|
|
|
||
|
|
[let
|
||
|
|
{ 1 2 2 3 4 4 5 } -1 :> ( s prev! )
|
||
|
|
s length <iota> [| i |
|
||
|
|
i s nth :> curr
|
||
|
|
i 0 > curr prev = and
|
||
|
|
[ i . ] when
|
||
|
|
curr prev!
|
||
|
|
] each
|
||
|
|
]
|