1 ! Copyright (C) 2011 John Benediktsson
2 ! See https://factorcode.org/license.txt for BSD license
4 USING: kernel math sequences sequences.extras sequences.private ;
9 "Usage: seq [first [incr]] last" print ;
12 swap <range> [ number>string print ] each ;
15 command-line get dup length {
16 { 1 [ first string>number [ 1 1 ] dip seq ] }
17 { 2 [ first2 [ string>number ] bi@ 2dup before? 1 -1 ? swap seq ] }
18 { 3 [ first3 [ string>number ] tri@ seq ] }