From 4022f2401399c0911103eaf7988fde4372b7f727 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Wed, 2 Jul 2014 22:15:26 +0200
Subject: [Factor] Día 2 (sin terminar)

---
 factor/examples/strings/strig-tests.factor | 5 +++++
 factor/examples/strings/strings.factor     | 5 +++++
 2 files changed, 10 insertions(+)
 create mode 100644 factor/examples/strings/strig-tests.factor
 create mode 100644 factor/examples/strings/strings.factor

(limited to 'factor/examples/strings')

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? ;
-- 
cgit v1.2.3