diff options
author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 21:56:04 +0200 |
---|---|---|
committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 21:56:04 +0200 |
commit | 0140792c8111d2dd1cf9004f2e3e602ec34ed30a (patch) | |
tree | edce9a1f3f65d1ad107e9e9dd2d28797e653a67d /_khb_experiment/test.khs | |
parent | 8456506c0b9c8e78eec2cc464851cef36ca03398 (diff) | |
download | SystemeReseaux-Projet-0140792c8111d2dd1cf9004f2e3e602ec34ed30a.tar.gz SystemeReseaux-Projet-0140792c8111d2dd1cf9004f2e3e602ec34ed30a.zip |
Cleanup.
Diffstat (limited to '_khb_experiment/test.khs')
-rw-r--r-- | _khb_experiment/test.khs | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/_khb_experiment/test.khs b/_khb_experiment/test.khs new file mode 100644 index 0000000..54b9507 --- /dev/null +++ b/_khb_experiment/test.khs @@ -0,0 +1,76 @@ +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> + + |