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