diff options
| author | Guillermo Ramos | 2014-07-02 22:15:26 +0200 |
|---|---|---|
| committer | Guillermo Ramos | 2014-07-02 22:15:26 +0200 |
| commit | 4022f2401399c0911103eaf7988fde4372b7f727 (patch) | |
| tree | cfe2aa02063aea02f5e5790778d4e4fd2f6fdeed /factor/examples/sequences | |
| parent | f3c354d396a38033dac28ece6f6220e75cef5aec (diff) | |
| download | 7l-4022f2401399c0911103eaf7988fde4372b7f727.tar.gz | |
[Factor] Día 2 (sin terminar)
Diffstat (limited to 'factor/examples/sequences')
| -rw-r--r-- | factor/examples/sequences/sequences.factor | 8 |
1 files changed, 8 insertions, 0 deletions
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 ; |