153 lines
2.2 KiB
Plaintext
153 lines
2.2 KiB
Plaintext
# This is just a comment
|
|
#.. Block comments
|
|
start with a #.. and
|
|
continue until dedent
|
|
|
|
require "lib/core.nom"
|
|
|
|
say "foo"
|
|
|
|
say (-4 + (1.5 - .25))
|
|
|
|
#.. "rule" is just a macro that takes a function call spec and a block of code to run,
|
|
and stores the function definition
|
|
rule [fart] =: say "poot"
|
|
|
|
# multi-line strings:
|
|
say ".."
|
|
| Once upon a time
|
|
|there was a very
|
|
|
|
|
|
|long string
|
|
|
|
|
| with
|
|
| rather
|
|
| silly # fake comments and
|
|
# Real comments look like this
|
|
| indentation
|
|
|
|
| and "quotes"
|
|
|.." (even fakeouts like that) "
|
|
|(done)
|
|
|
|
|
|^and trailing spaces
|
|
|
|
|
|
|
say ".."|Longstrings have interpolation: \1 + 2\ <- like that
|
|
|
|
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 %1 and %2] =:
|
|
say %1
|
|
say %2
|
|
|
|
say both [..]
|
|
1,2
|
|
..and [..]
|
|
3,4
|
|
|
|
|
|
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)
|
|
|
|
# Some variables
|
|
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
|
|
|
|
when:
|
|
? %x == 1:
|
|
say "one"
|
|
? %x == 2:
|
|
say "two"
|
|
? %x:
|
|
say "nonzero"
|
|
?:
|
|
say "???"
|
|
|
|
when %x:
|
|
== 1:
|
|
say "one"
|
|
== 2:
|
|
say "two"
|
|
==:
|
|
say "???"
|
|
|
|
|
|
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])
|
|
|