133 lines
1.9 KiB
Plaintext
133 lines
1.9 KiB
Plaintext
# This is just a comment
|
|
#.. Block comments
|
|
start with a #.. and
|
|
continue until dedent
|
|
|
|
require "lib/core.nom"
|
|
|
|
say "foo"
|
|
|
|
say (4)
|
|
|
|
#.. "rule" is just a function that takes a function call spec and a block of code to run,
|
|
and stores the function definition
|
|
rule: fart ..=: say "poot"
|
|
|
|
fart
|
|
|
|
# multi-line strings:
|
|
say ".."
|
|
| Once upon a time
|
|
|there was a very
|
|
|
|
|
|
|long string
|
|
|
|
|
| with
|
|
| rather
|
|
| silly
|
|
| indentation
|
|
|
|
| and "quotes"
|
|
|.." (even fakeouts like that) "
|
|
|(done)
|
|
|
|
|
|
|
rule: doublefart ..=: # this farts twice
|
|
say "poot"
|
|
say "poot"
|
|
|
|
doublefart
|
|
|
|
rule: subex work ..=: "subexpressions work"
|
|
|
|
say (subex work)
|
|
|
|
say (..)
|
|
subex work
|
|
|
|
say ["lists", "work"]
|
|
|
|
say []
|
|
|
|
say [..]
|
|
1, 2
|
|
3
|
|
|
|
rule: say both %one and %two ..=:
|
|
say %one
|
|
say %two
|
|
|
|
say both [..]
|
|
1,2
|
|
..and [..]
|
|
3,4
|
|
|
|
|
|
say both..
|
|
"hello"
|
|
and "world"
|
|
|
|
rule: three ..=: 3
|
|
say both ..
|
|
"a list:"
|
|
and [..]
|
|
1,2,(three),(4)
|
|
|
|
if 1: yes
|
|
..else: no
|
|
|
|
if 1: yes ..else: no
|
|
|
|
say (do: return: 5)
|
|
|
|
rule: do %one also %two ..=:
|
|
do %one
|
|
do %two
|
|
|
|
do: say "one liner"
|
|
..also: say "another one liner"
|
|
|
|
say (do: return: "wow")
|
|
|
|
say (1 + (-(2 * 3)))
|
|
|
|
say (2 + (..)
|
|
3 * 4
|
|
..)
|
|
|
|
if %x:
|
|
say "one"
|
|
..else: if %y:
|
|
say "two"
|
|
..else:
|
|
say "three"
|
|
|
|
|
|
say ".."
|
|
|this is a longstring
|
|
|
|
|
| with multiple lines
|
|
| and an interpolated expression: \2 + 5\
|
|
|
|
rule: %n bottles ..=:
|
|
lua block ".."
|
|
|do
|
|
| print("running raw lua code...")
|
|
| for i=\%n\,1,-1 do
|
|
| print(tostring(i).." bottles of beer on the wall. Take one down, pass it around,")
|
|
| end
|
|
| print("no more bottles of beer on the wall.")
|
|
|end
|
|
nil
|
|
9 bottles
|
|
|
|
rule: dumsum %nums ..=:
|
|
%sum =: 0
|
|
for %n in %nums:
|
|
%sum +=: %n
|
|
return: %sum
|
|
|
|
say (dumsum [1,2,3])
|
|
|