diff options
Diffstat (limited to 'factor/examples/strings')
| -rw-r--r-- | factor/examples/strings/strig-tests.factor | 5 | ||||
| -rw-r--r-- | factor/examples/strings/strings.factor | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/factor/examples/strings/strig-tests.factor b/factor/examples/strings/strig-tests.factor new file mode 100644 index 0000000..714c4ca --- /dev/null +++ b/factor/examples/strings/strig-tests.factor @@ -0,0 +1,5 @@ +USING: examples.strings tools.test ; +IN: examples.strings.tests + +{ f } [ "hola" palindrome ] unit-test ; +{ t } [ "blrlb" palindrome ] unit-test ; diff --git a/factor/examples/strings/strings.factor b/factor/examples/strings/strings.factor new file mode 100644 index 0000000..cf9bd6d --- /dev/null +++ b/factor/examples/strings/strings.factor @@ -0,0 +1,5 @@ +USING: kernel sequences ; +IN: examples.strings + +: palindrome ( s -- bool ) + dup reverse equal? ; |