extra/stack-as-data/stack-as-data-tests.factor

   1 ! Copyright (C) 2022 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: math stack-as-data tools.test ;
   4 IN: stack-as-data.tests
   5
   6 { 10 20 30 50 40 } [ 10 20 30 40 50  0 1 stack-exchange ] unit-test
   7 { 20 10 30 40 50 } [ 10 20 30 40 50  4 3 stack-exchange ] unit-test
   8 { 20 10 30 40 50 } [ 10 20 30 40 50  3 4 stack-exchange ] unit-test
   9 { 10 20 30 40 50 } [ 10 20 30 40 50  0 0 stack-exchange ] unit-test
  10
  11 ! { V{ 6 8 } }
  12 ! [
  13 !     5 6 7 8
  14 !     4 [ even? ] stack-filter
  15 ! ] unit-test
  16
  17 { 25 36 49 64 }
  18 [
  19     5 6 7 8
  20     4 [ sq ] stack-map
  21 ] unit-test
  22