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 { V{ 6 8 } }
   7 [
   8     5 6 7 8
   9     4 [ even? ] stack-filter
  10 ] unit-test
  11
  12
  13 { 25 36 49 64 }
  14 [
  15     5 6 7 8
  16     4 [ sq ] stack-map
  17 ] unit-test
  18
  19
  20 { 10 20 30 50 40 } [ 10 20 30 40 50  0 1 stack-exchange ] unit-test
  21 { 20 10 30 40 50 } [ 10 20 30 40 50  4 3 stack-exchange ] unit-test
  22 { 20 10 30 40 50 } [ 10 20 30 40 50  3 4 stack-exchange ] unit-test
  23 { 10 20 30 40 50 } [ 10 20 30 40 50  0 0 stack-exchange ] unit-test