31 lines
593 B
Factor
31 lines
593 B
Factor
! Copyright (C) 2019-2020 KUSUMOTO Norio.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: tools.test logic lists logic.examples.money ;
|
|
|
|
{
|
|
{
|
|
H{
|
|
{ N1 L{ 0 9 5 6 7 } }
|
|
{ N2 L{ 0 1 0 8 5 } }
|
|
{ N L{ 1 0 6 5 2 } }
|
|
}
|
|
}
|
|
}
|
|
[
|
|
{ { moneyo N1 N2 N } { sumo N1 N2 N } } query
|
|
S-and-M-can't-be-zero
|
|
] unit-test
|
|
|
|
{
|
|
{
|
|
H{
|
|
{ N1 L{ 5 2 6 4 8 5 } }
|
|
{ N2 L{ 1 9 7 4 8 5 } }
|
|
{ N L{ 7 2 3 9 7 0 } }
|
|
}
|
|
}
|
|
}
|
|
[
|
|
{ { donaldo N1 N2 N } { sumo N1 N2 N } } query
|
|
] unit-test
|