Changed logo, made symbol allow numbers, added to examples

Author: adam-mcdaniel

assets/logo.png

@@ -1,4 +1,6 @@
 (defun clear () (do (map (lambda (_) (print "")) (range 0 100)) @))
 (define cls clear)
 
-"success"
+(cls)
+
+(print "success")

examples/io.lisp

@@ -1,4 +1,4 @@
-(defun repeat (x count) (map (lambda (_) x) (range 0 count)))
+; (defun repeat (x count) (map (lambda (_) x) (range 0 count)))
 (defun len (l) (reduce (lambda (acc _) (+ acc 1)) 0 l))
 
 ; get the nth item in a list
@@ -23,13 +23,28 @@
         (range 0 size)
     ))
 
+; (defun median-of-three (l)
+;     (if (>= (len l) 3)
+;         (do (define n1 (first l))
+;             (define n2 (index l (/ (len n) 2)))
+;             (define n3 (last l))
+;             (if (* (<= n2 n1) (<= n1 n3)) n1
+;                 (* (<= n1 n2) (<= n2 n3)) n2
+;                 n3))
+;         (first l)))
+
+(defun median-of-three (l)
+    (if (>= (len l) 3)
+        (min (max (first l) (index l (/ (len l) 2))) (last l))
+        (first l)))
 
 ; quicksort a list
 (defun qs (l)
     (if (<= (len l) 1)
         l
         (do
-            (define pivot (first l))
+            ; (define pivot (first l))
+            (define pivot (median-of-three l))
             (+
                 (qs (filter (lambda (n) (> pivot n)) l))
                 (list pivot)
@@ -91,5 +106,13 @@
             )
         )
     ))
+
+
+(define list-to-sort (random-list 0 100 100))
+
+(print "Unsorted list: " list-to-sort)
+(print "Merge-sorted list: " (merge-sort list-to-sort))
+(print "Quick-sorted list: " (qs list-to-sort))
+
 ; this is too!
-"success"
+"success"

examples/list.lisp

@@ -34,4 +34,4 @@
             (collatz (/ n 2))
         )))
 
-"success"
+"success"

examples/math.lisp

@@ -113,7 +113,7 @@ void replace_substring(std::string &src, std::string substr, std::string replace
 
 // Is this character a valid lisp symbol character
 bool is_symbol(char ch) {
-    return (isalpha(ch) || ispunct(ch)) && ch != '(' && ch != ')' && ch != '"' && ch != '\'';
+    return (isalnum(ch) || ispunct(ch)) && ch != '(' && ch != ')' && ch != '"' && ch != '\'';
 }
 
 ////////////////////////////////////////////////////////////////////////////////