basis/lists/lists-tests.factor

   1 ! Copyright (C) 2008 James Cash
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test lists math kernel ;
   4
   5 { { 3 4 5 6 7 } } [
   6     { 1 2 3 4 5 } sequence>list [ 2 + ] lmap list>array
   7 ] unit-test
   8
   9 { 2 { 3 4 5 6 7 } } [
  10     2 { 1 2 3 4 5 } sequence>list [ dupd + ] lmap list>array
  11 ] unit-test
  12
  13 { { 3 4 5 6 } } [
  14     T{ cons-state f 1
  15         T{ cons-state f 2
  16             T{ cons-state f 3
  17                 T{ cons-state f 4
  18                 +nil+ } } } } [ 2 + ] lmap>array
  19 ] unit-test
  20
  21 { 10 } [
  22     T{ cons-state f 1
  23         T{ cons-state f 2
  24             T{ cons-state f 3
  25                 T{ cons-state f 4
  26                 +nil+ } } } } 0 [ + ] foldl
  27 ] unit-test
  28
  29 { T{ cons-state f 2 T{ cons-state f 3 T{ cons-state f 4 T{ cons-state f 5 +nil+ } } } } } [
  30     { 1 2 3 4 } sequence>list [ 1 + ] lmap
  31 ] unit-test
  32
  33 { 15 } [
  34  { 1 2 3 4 5 } sequence>list 0 [ + ] foldr
  35 ] unit-test
  36
  37 { { 5 4 3 2 1 } } [
  38     { 1 2 3 4 5 } sequence>list lreverse list>array
  39 ] unit-test
  40
  41 { 5 } [
  42     { 1 2 3 4 5 } sequence>list llength
  43 ] unit-test
  44
  45 { { 1 2 3 4 5 6 } } [
  46     { 1 2 3 } sequence>list { 4 5 6 } sequence>list lappend list>array
  47 ] unit-test
  48
  49 { { 1 } { 2 } } [ { 1 2 } sequence>list 1 lcut [ list>array ] bi@ ] unit-test
  50
  51 { { { 1 } { { 2 } } } } [
  52     1 nil cons 2 nil cons nil cons nil cons cons deeplist>array
  53 ] unit-test