1 ! Copyright (C) 2008 James Cash
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: tools.test lists math kernel ;
7 { 1 2 3 4 5 } sequence>list [ 2 + ] lmap list>array
11 2 { 1 2 3 4 5 } sequence>list [ dupd + ] lmap list>array
19 +nil+ } } } } [ 2 + ] lmap>array
27 +nil+ } } } } 0 [ + ] foldl
30 { T{ cons-state f 2 T{ cons-state f 3 T{ cons-state f 4 T{ cons-state f 5 +nil+ } } } } } [
31 { 1 2 3 4 } sequence>list [ 1 + ] lmap
35 { 1 2 3 4 5 } sequence>list 0 [ + ] foldr
39 { 1 2 3 4 5 } sequence>list lreverse list>array
43 { 1 2 3 4 5 } sequence>list llength
47 { 1 2 3 } sequence>list { 4 5 6 } sequence>list lappend list>array
50 { { 1 } { 2 } } [ { 1 2 } sequence>list 1 lcut [ list>array ] bi@ ] unit-test