2020-03-01 04:19:07 -05:00
|
|
|
! Copyright (C) 2019-2020 KUSUMOTO Norio.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2020-03-03 07:04:46 -05:00
|
|
|
USING: tools.test logic lists logic.examples.fib ;
|
2020-03-01 04:19:07 -05:00
|
|
|
|
|
|
|
|
{ { H{ { L L{ 0 } } } } } [ { fibo 0 L } query ] unit-test
|
|
|
|
|
|
|
|
|
|
{ { H{ { L L{ 1 1 0 } } } } } [ { fibo 2 L } query ] unit-test
|
|
|
|
|
|
|
|
|
|
{ { H{ { L L{ 55 34 21 13 8 5 3 2 1 1 0 } } } } } [
|
|
|
|
|
{ fibo 10 L } query
|
|
|
|
|
] unit-test
|
