prelude.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
; Imports
'str import
'io import
'logic import
'num import
'sys import
'time import
'fs import
'crypto import
; Aliases
'define ::
'bind :@
'exit :quit
'== :eq
'!= :noteq
'> :gt
'< :lt
'>= :gte
'<= :lte
'put :echo
'system :!
'run :&
'getenv :$
'pop :zap
'quote :unit
'quote :'
'unquote :i
'unquote :apply
'unquote :->
'scope :=>
'filter :select
'cons :prepend
'size :length
'regex :=~
; Mathematical Operators
(1 +) :succ
(1 -) :pred
(2 mod 0 ==) :even?
(even? not) :odd?
; Stack Operators
(swap cons) :swons
((pop) dip) :popd
((dup) dip) :dupd
((swap) dip) :swapd
((dup) dip i) :q
((zap) dip i) :k
((cons) dip i) :b
((swap) dip i) :c
((dip) cons cons) :take
(() cons dip) :dig1
(() cons cons dip) :dig2
(() cons cons cons dip) :dig3
((() cons) dip swap i) :bury1
((() cons cons) dip swap i) :bury2
((() cons cons cons) dip swap i) :bury3
; Other
(print pop) :print!
(dprint pop) :dprint!
(put pop) :put!
(call pop) :call!
(:ms :q :check (check) (ms sleep q) while) :interval
(password aes encode) :encrypt
(decode password aes) :decrypt
; Load all stored symbols
stored-symbols ('load-symbol ROOT with) foreach
|