summaryrefslogtreecommitdiff
path: root/khb/test.khs
diff options
context:
space:
mode:
Diffstat (limited to 'khb/test.khs')
-rw-r--r--khb/test.khs76
1 files changed, 0 insertions, 76 deletions
diff --git a/khb/test.khs b/khb/test.khs
deleted file mode 100644
index 54b9507..0000000
--- a/khb/test.khs
+++ /dev/null
@@ -1,76 +0,0 @@
-proc_integers:
- < @fd[f].n > @fd[f].nmax ? _then1 : _else1 >
-_then1:
- -1 >> @fd[f].qo
- < _end1 >
-_else1:
- @fd[f].n >> @fd[f].qo
- fd[f].trtmp.n := @fd[f].n + 1
- fd[f].trtmp.nmax := @fd[f].nmax
- fd[f].trtmp.qo := @fd[f].qo
- fd[f].n := @fd[f].trtmp.n
- fd[f].nmax := @fd[f].trtmp.nmax
- fd[f].qo := @fd[f].trtmp.qo
- < proc_integers >
- < _end1 >
-_end1:
- fd[f] := ""
- ~ (.qo, .nmax, .n)
- < @fd[f].return >
-
- proc_filter:
- val << @(fd\@f\qi)
- < @val != -1 ? _then2 : _else2 >
-_then2:
- < @val % @(fd\@f\n) != 0 ? _then3 : _end3 >
-_then3:
- @val >> @(fd\@f\qo)
-_end3:
- <proc_filter>
- <_end2>
-_else2:
- -1 >> @qo
- <_end2>
-_end2:
- fd[f] := ""
- ~ (.qo, .qi, .val, .n)
- < @(fd\@f\return) >
-
-proc_primes:
- .val << @.qi
- < @.val != -1 ? _then4 : _end4 >
-_then4:
- @.val >> @stdout
- .c := <>
- | _par_1 |
- .qi := @(.c\in)
- <proc_primes>
-_end4:
- fd\@f := ""
- ~ (.val, .qi, .c)
- < @(fd\@f\return) >
-_par_1:
- .n := @.val
- .qo := @(.c\out)
- <proc_filter>
-
-proc_main:
- .c := <>
- | _par_2 |
- fd\(@f+1)\qi := @(.c\in)
- f := @f+1
- .return := _ret1
- <proc_primes>
-_ret1:
- f := @f-1
- .tmp_retval := @(fd\(@f+1))
- fd\@f := .tmp_retval
- ~(.tmp_retval)
- < .return >
-_par_2:
- .n := 2
- .nmax := 5000
- .qo := @(.c\out)
- <proc_integers>
-
-