capitalex / hello-world.nils.jets.nv
0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 10 months ago
| 1 | |:: documentation for NILS Form| |
| 2 | :@doc string: |
| 3 | "Nova In-Language Static Form is a possible structure for lowering |
| 4 | Nova code into a bytecode language describable in Nova. This is not |
| 5 | intended to be written by hand." |
| 6 | |
| 7 | |:: match $stack $arity :failed:?| |
| 8 | |:: match $stack $symbol| |
| 9 | :@jet: |
| 10 | " |
capitalex / hello-world.nils.nv
0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 10 months ago
| 1 | |:: documentation for NILS Form| |
| 2 | :@doc string: |
| 3 | "Nova In-Language Static Form is a possible structure for lowering |
| 4 | Nova code into a bytecode language describable in Nova. This is not |
| 5 | intended to be written by hand." |
| 6 | |
| 7 | |:: match $stack $arity :failed:?| |
| 8 | |:: match @stdio.arity $arity :@stdio.arity: $arity| :@stdio.arity (r): $arity |
| 9 | |:: match @stdio.1 $1 :@stdio.1: $1| :@stdio.1 (r): $1 |
| 10 | |:: match @stdio.2 $2 :@stdio.2: $2| :@stdio.2 (r): $2 |
capitalex / bottles-of-beer.nv
0 лайк(-ов)
0 форк(-ов)
3 файл(-ов)
Последняя активность 10 months ago
| 1 | || :keyword for 'if': say |
| 2 | :keyword for 'else': otherwise-say |
| 3 | |
| 4 | || :: 99 bottles of beer |
| 5 | |
| 6 | |:: $n bottles of beer| |
| 7 | :: $n bottles of beer on the wall! |
| 8 | :: $n bottles of beer! |
| 9 | :: You take one down, pass it around! |
| 10 | :: when $n is 1 :: say |
capitalex / multiset-fib.modal
0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 11 months ago
| 1 | <> (tally ?v (Bag ?l)) ((Bag tallying| tallying> ?v ?l)) |
| 2 | |
| 3 | <> (tallying> ?v ()) |
| 4 | (<tallying ((Entry ?v 1) ())) |
| 5 | |
| 6 | <> (tallying> ?v ((Entry ?v ?c) ?r)) |
| 7 | (<tallying ((Entry ?v ?((?: ?0 ?1) ?:) + ?c 1) ?r)) |
| 8 | |
| 9 | <> (tallying> ?v (?e ?r)) |
| 10 | ((?e tallying> ?v ?r)) |
