3 lines
120 B
Factor
3 lines
120 B
Factor
USING: grouping math.vectors prettyprint sequences.extras ;
|
|
|
|
{ 1 2 2 3 4 4 5 } 2 <clumps> [ all-eq? ] arg-where 1 v+n .
|