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/sequences/sequences.factor | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 factor/examples/sequences/sequences.factor

(limited to 'factor/examples/sequences/sequences.factor')

diff --git a/factor/examples/sequences/sequences.factor b/factor/examples/sequences/sequences.factor
new file mode 100644
index 0000000..b07b4e6
--- /dev/null
+++ b/factor/examples/sequences/sequences.factor
@@ -0,0 +1,8 @@
+USING: kernel ;
+IN: examples.sequences
+
+: find-first ( seq p -- x )
+    SYMBOL: p
+    p set
+    
+    f [ p ] reduce ;
-- 
cgit v1.2.3