about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--scratch/a.brev15
-rw-r--r--scratch/a.scm14
-rw-r--r--scratch/game.brev25
3 files changed, 54 insertions, 0 deletions
diff --git a/scratch/a.brev b/scratch/a.brev
new file mode 100644
index 0000000..62f0d18
--- /dev/null
+++ b/scratch/a.brev
@@ -0,0 +1,15 @@
+(import brev mdg)
+
+(print "hi there")
+
+(define 
+	(strange a b)
+	(list 'product (* a b)))
+
+(define
+  (strange a b)
+	(list 'sum (require even? (+ a b))))
+
+(print
+ (map strange '(1 2 3 4) '(5 5 7 8))
+ ((over (+ x x y i)) '(10 20 40) '(3 6 9)))
\ No newline at end of file
diff --git a/scratch/a.scm b/scratch/a.scm
new file mode 100644
index 0000000..1ce9578
--- /dev/null
+++ b/scratch/a.scm
@@ -0,0 +1,14 @@
+(import
+	(chibi)
+	(chibi sxml))
+
+(define strand
+	(sxml->xml 
+		`(html
+			(head
+				(title "bean"))
+			(body
+				(h1 "hello there")
+				(p "this is some text, hmmm.")))))
+
+(display strand)
\ No newline at end of file
diff --git a/scratch/game.brev b/scratch/game.brev
new file mode 100644
index 0000000..cc62149
--- /dev/null
+++ b/scratch/game.brev
@@ -0,0 +1,25 @@
+(import brev mdg)
+
+(define true #t)
+(define false #f)
+(define game-running true)
+
+(define (menu msg)
+	(print msg))
+
+(define start-game "start game")
+(define game-over "game over")
+
+(define (listner game-running)
+	(display " > ")
+	(define user-input (read))
+	(if (eq? user-input "quit")
+        ((set! game-running false) (print game-running))
+		(print "continue"))
+	game-running)
+
+(let loop ()
+	(if (eq? game-running true)
+		(listner game-running)
+		(print "game isn't running"))
+	(loop))
\ No newline at end of file