diff options
Diffstat (limited to 'khb/test.khb')
-rw-r--r-- | khb/test.khb | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/khb/test.khb b/khb/test.khb deleted file mode 100644 index f109016..0000000 --- a/khb/test.khb +++ /dev/null @@ -1,67 +0,0 @@ -$$ integers (n, nmax, qo) = - (n > nmax ? - (-1) >> qo - : - n >> qo; - become integers(n+1, nmax, qo) - ) - -# Version alternative : -$$ integers (n, nmax, qo) = - ]->[ ( - (n > nmax ? ->[]); - n >> qo; - n = n + 1 - ); - -1 >> qo - -$$ filter (n, qi, qo) = - val << qi; - (val != -1 ? - (val % n != 0 ? - val >> qo - ); - become filter(n, qi, qo) - : - -1 >> qo - ) - -# Version alternative : -$$ filter (n, qi, qo) = - ]->[ ( - val << qi; - (val == -1 ? ->[]); - (val % n != 0 ? val >> qo) - ); - -1 >> qo - -$$ primes (qi) = - val << qi; - (val != -1 ? - val >> stdout; - c = <>; - | become filter(val, qi, c.out) |; - become primes(c.in) - ) - -# Version alternative : -$$ primes (qi) = - ]->[ ( - val << qi; - (val == -1 ? ->[]); - val >> stdout; - c = <>; - | filter(val, qi, c.out) |; - qi = c.in - ) - -$$ main () = - c = <>; - | integers (2, 5000, c.out) |; - primes (c.in) - - - - - - |