245 lines
2.9 KiB
Plaintext
Executable File
245 lines
2.9 KiB
Plaintext
Executable File
#!/usr/bin/env moon
|
|
utils = require 'utils'
|
|
Game = require 'nomic'
|
|
g = Game(require'core')
|
|
|
|
print("===========================================================================================")
|
|
|
|
|
|
g\test[[
|
|
say "foo"
|
|
===
|
|
Call [say %]:
|
|
"foo"
|
|
]]
|
|
|
|
g\test[[
|
|
say (4)
|
|
===
|
|
Call [say %]:
|
|
4
|
|
]]
|
|
|
|
g\test[[
|
|
rule "fart": say "poot"
|
|
===
|
|
Call [rule % %]:
|
|
"fart"
|
|
Thunk:
|
|
Call [say %]:
|
|
"poot"
|
|
]]
|
|
|
|
g\test[[
|
|
rule "doublefart":
|
|
say "poot"
|
|
say "poot"
|
|
===
|
|
Call [rule % %]:
|
|
"doublefart"
|
|
Thunk:
|
|
Call [say %]:
|
|
"poot"
|
|
Call [say %]:
|
|
"poot"
|
|
]]
|
|
|
|
g\test[[
|
|
say (subexpressions work)
|
|
===
|
|
Call [say %]:
|
|
Call [subexpressions work]!
|
|
]]
|
|
|
|
g\test[[
|
|
say ["lists", "work"]
|
|
===
|
|
Call [say %]:
|
|
List:
|
|
"lists"
|
|
"work"
|
|
]]
|
|
|
|
g\test[[
|
|
say []
|
|
===
|
|
Call [say %]:
|
|
<Empty List>
|
|
]]
|
|
|
|
g\test[[
|
|
say [..]
|
|
1, 2
|
|
3
|
|
===
|
|
Call [say %]:
|
|
List:
|
|
1
|
|
2
|
|
3
|
|
]]
|
|
|
|
g\test[[
|
|
say both [..]
|
|
1,2
|
|
..and [..]
|
|
3,4
|
|
===
|
|
Call [say both % and %]:
|
|
List:
|
|
1
|
|
2
|
|
List:
|
|
3
|
|
4
|
|
]]
|
|
|
|
g\test[[
|
|
say both..
|
|
"hello"
|
|
and "world"
|
|
===
|
|
Call [say both % and %]:
|
|
"hello"
|
|
"world"
|
|
]]
|
|
|
|
g\test[[
|
|
say both ..
|
|
"a list:"
|
|
and [..]
|
|
1,2,(three),(4)
|
|
===
|
|
Call [say both % and %]:
|
|
"a list:"
|
|
List:
|
|
1
|
|
2
|
|
Call [three]!
|
|
4
|
|
]]
|
|
|
|
g\test[[
|
|
if 1: yes
|
|
..else: no
|
|
===
|
|
Call [if % % else %]:
|
|
1
|
|
Thunk:
|
|
Call [yes]!
|
|
Thunk:
|
|
Call [no]!
|
|
]]
|
|
g\test[[
|
|
if 1: yes ..else: no
|
|
===
|
|
Call [if % % else %]:
|
|
1
|
|
Thunk:
|
|
Call [yes]!
|
|
Thunk:
|
|
Call [no]!
|
|
]]
|
|
g\test[[
|
|
say (do: return 5)
|
|
===
|
|
Call [say %]:
|
|
Call [do %]:
|
|
Thunk:
|
|
Call [return %]:
|
|
5
|
|
]]
|
|
g\test[[
|
|
say (..)
|
|
fn call
|
|
===
|
|
Call [say %]:
|
|
Call [fn call]!
|
|
]]
|
|
|
|
g\run[[
|
|
|
|
say [..]
|
|
"this is a stupidly long list", "the items go way past the 80 character", "limit that older consoles"
|
|
"had.", "It just keeps going and going"
|
|
|
|
rule "dumbfunc %a %b %c %d %e":
|
|
say "doop"
|
|
|
|
dumbfunc..
|
|
"this is a stupidly long set of arguments" "the items go way past the 80 character" "limit that older consoles"
|
|
"had." "It just keeps going and going"
|
|
|
|
]]
|
|
g\run[[
|
|
rule "four": return 4
|
|
rule "say both %one and %two":
|
|
say %one
|
|
say %two
|
|
|
|
say both ..
|
|
"a list:"
|
|
and [..]
|
|
1,2,3,(four),(5)
|
|
|
|
say "done"
|
|
]]
|
|
|
|
g\run[[
|
|
rule "do %thing also %also-thing":
|
|
do %thing
|
|
do %also-thing
|
|
return 99
|
|
|
|
do: say "one liner"
|
|
..also: say "another one liner"
|
|
|
|
say (..)
|
|
do:
|
|
say "hi"
|
|
return 5
|
|
say "bye"
|
|
|
|
say (do: return "wow")
|
|
if 1: say "hi1" ..else: say "bye1"
|
|
|
|
if 1: say "hi2"
|
|
..else: say "bye2"
|
|
|
|
]]
|
|
g\run[[
|
|
rule "foo %x":
|
|
if %x:
|
|
say "YES"
|
|
55
|
|
..else:
|
|
say "NO"
|
|
-99
|
|
|
|
say (foo 1)
|
|
say (foo (false))
|
|
|
|
]]
|
|
|
|
g\run[[
|
|
say (1 + (-(2 * 3)))
|
|
]]
|
|
|
|
g\run[[
|
|
for "x" in ["A","B","C"]:
|
|
say %x
|
|
]]
|
|
g\run[[
|
|
say (for "x" in [1,2,3]:%x + 100)
|
|
say (..)
|
|
for "x" in [1,2,3]:
|
|
%x + 200
|
|
]]
|
|
|
|
g\run[[
|
|
if (1 == 1):
|
|
say "Simple macros work!"
|
|
unless (1 > 2):
|
|
say "This one too!"
|
|
]]
|