You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
540 B
34 lines
540 B
(defun spit
|
|
(id miracle
|
|
"builtins" "print" (id $1))
|
|
)
|
|
(defun input
|
|
(id miracle
|
|
"builtins" "input" (""))
|
|
)
|
|
(defun thesis
|
|
(id spit
|
|
("this language belongs to makise kurisu. there are many like it, but this one is hers."))
|
|
)
|
|
|
|
(def a (id (id "desu")))
|
|
(spit
|
|
("lol swej" (+ 9000 1) a)
|
|
)
|
|
(spit ((cond (= "10" (+ 1 9)) "same" "not same")))
|
|
(cond ("", (+ 0 1))
|
|
(id spit ("one"))
|
|
(id spit ("zero"))
|
|
)
|
|
(thesis)
|
|
|
|
(spit ("how old are you? > "))
|
|
(def age (conv number (input)))
|
|
(spit
|
|
(
|
|
(cond (> age 18)
|
|
"adult"
|
|
"not adult"
|
|
)
|
|
)
|
|
) |