An experimental stack-based language with 'macros'
|
2 年之前 | |
---|---|---|
LICENSE | 2 年之前 | |
README.md | 2 年之前 | |
felth.png | 2 年之前 | |
felth.svg | 2 年之前 | |
monolithic.lua | 2 年之前 | |
repl.lua | 2 年之前 | |
tff.lua | 2 年之前 |
Felth is an attempt at making a language that's as powerful as a Lisp while operating on a tape (ie, Lisp for Turing Machines).
Factorial:
DEFM# -- | 1 - 2 ! |
DEFM# one? | 1 =? 2 ! |
DEFM# one?: | : 1 ! one? |
DEFM# discard1 | discard 1 ! |
DEFM# dup! | dup 1 ! |
DEFM# swap2! | swap2 2 ! |
DEFM# swap3! | swap3 3 ! |
DEFM# fac' | one?: IF# |² discard1 |² dup! swap3! -- * 2 ! swap2! -- fac' |² |