From e8154945784f15abe3176e88d483ce60678a8583 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Thu, 3 Jul 2008 12:24:16 -0500 Subject: [PATCH] sequences: add sigma and count --- core/sequences/sequences.factor | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 2d05d3c2ef..d5389ef3f6 100755 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -722,3 +722,8 @@ PRIVATE> dup [ length ] map infimum swap [ [ nth-unsafe ] with { } map-as ] curry { } map-as ] unless ; + +: sigma ( seq quot -- n ) [ + ] compose 0 swap reduce ; inline + +: count ( seq quot -- n ) [ 1 0 ? ] compose sigma ; inline +