21 lines
573 B
Plaintext
21 lines
573 B
Plaintext
|
?(?-) (Rules)
|
||
|
|
|
||
|
|
<> (* (. > (. ?x))) (* (. (. > ?x)))
|
||
|
|
<> (. (. > (* ?x))) (* (. (* > ?x)))
|
||
|
|
|
||
|
|
?(?-) (Physics)
|
||
|
|
|
||
|
|
<> (Tri > (?x ?y)) (Tri (?x > ?y))
|
||
|
|
<> (Tri (?x > (?y ?z))) (Tri (?x (?y > ?z)))
|
||
|
|
<> (?x (?y > (?z ?n))) (. (?y (?z > ?n)))
|
||
|
|
<> ((?x > ())) (< ())
|
||
|
|
<> (Tri < (* ?^)) (?(?: ?:) (*?^))
|
||
|
|
<> ((?x < ?y)) (< (?x ?y))
|
||
|
|
|
||
|
|
?(?-) (Print)
|
||
|
|
|
||
|
|
<> (Tri.join ?x ?:) (Tri > ?x ?:)
|
||
|
|
<> (Tri.dup ?x ?^) (Tri.join ?x ?^)
|
||
|
|
<> (Tri < ?x) (Tri.dup (. ?x) (?x \n))
|
||
|
|
|
||
|
|
Tri < (. (. (. (. (. (. (. (. (. (. (. (. (. (. (. (* (. (. (. (. (. (. (. (. (. (. (. (. (. (. (. ())))))))))))))))))))))))))))))))
|