my attempt at a Toki Pona version

inspired by NaNoGenMo/2020#80
hornc · Dec 2, 2020 · 8c05d01 · 8c05d01
1 parent 93f4328
commit 8c05d01
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 0 deletions.
diff --git a/K-IS_tp.lazy b/K-IS_tp.lazy
@@ -0,0 +1 @@
+K(IS(SI(K(S(K(S(S(KS)K)(S(S(KS)K)I)))(S(S(KS)K)I(S(S(KS)K)(SII(S(S(KS)K)I)))))))(K(S(SI(K(S(S(KS)K)(S(K(S(S(KS)K)(SII(S(S(KS)K)I))))(S(S(KS)K)I(S(S(KS)K)(S(S(KS)K)I)))))))(K(S(SI(K(S(K(S(S(KS)K)I))(S(SII)I(S(S(KS)K)I)))))(K(S(SI(K(S(K(SII(S(S(KS)K)I)))(SII(S(S(KS)K)(S(S(KS)K)I))))))(K(S(SI(K(S(S(KS)K)(S(K(SII(S(S(KS)K)I)))(S(S(KS)K)(S(S(KS)K)I(S(S(KS)K)(SII(S(S(KS)K)I)))))))))(K(S(S(KS)K)(S(S(KS)K)I(S(S(KS)K)(SII(S(S(KS)K)I))))(S(S(KS)K)(S(K(S(S(S(KS)K))(SII)(S(S(KS)K)I)))(S(K(S(S(KS)K)I))(S(S(KS)K)(SII(S(S(KS)K)I)))))(S(K(S(K(S(SI(K(S(K(S(S(KS)K)I))(S(SII)I(S(S(KS)K)I)))))))K))(S(K(S(K(S(SI(K(S(K(S(S(KS)K)(S(K(S(S(KS)K)I))(S(S(KS)K)(S(S(KS)K)I)))))(S(S(KS)K)(S(SII)I(S(S(KS)K)I))))))))K))(S(K(S(K(S(SI(K(S(S(KS)K)(S(K(SII(S(S(KS)K)I)))(S(S(KS)K)(S(S(KS)K)I(S(S(KS)K)(SII(S(S(KS)K)I)))))))))))K))(S(K(S(K(S(SI(K(S(K(SII(S(S(KS)K)I)))(SII(S(S(KS)K)(S(S(KS)K)I))))))))K))(S(K(S(K(S(SI(K(S(S(KS)K)(S(S(KS)K)I(S(K(S(S(KS)K)I))(S(S(KS)K)(SII(S(S(KS)K)I))))))))))K))(S(K(S(K(S(SI(K(S(K(S(S(KS)K)I))(S(SII)I(S(S(KS)K)I)))))))K))(S(K(S(K(S(SI(K(S(SII)I(S(S(KS)K)I)(S(S(KS)K))(S(SII)(S(S(KS)K))(S(S(KS)K)I)))))))K))(S(K(S(K(S(SI(K(S(K(SII(S(S(KS)K)I)))(SII(S(S(KS)K)(S(S(KS)K)I))))))))K))(S(K(S(K(S(SI(K(S(SII)I(S(S(KS)K)I)(S(S(KS)K))(S(SII)(S(S(KS)K))(S(S(KS)K)I)))))))K))(S(K(S(K(S(SI(K(S(K(S(S(KS)K)I))(S(SII)I(S(S(KS)K)I)))))))K))(S(K(S(K(S(SI(K(S(K(SII(S(S(KS)K)I)))(S(S(KS)K)(SII(S(S(KS)K)(S(S(KS)K)I)))))))))K))(S(K(S(K(S(SI(K(S(SII)I(S(S(KS)K)I)(S(S(KS)K))(S(SII)(S(S(KS)K))(S(S(KS)K)I)))))))K))(S(K(S(K(S(SI(K(S(K(SII(S(S(KS)K)I)))(SII(S(S(KS)K)(S(S(KS)K)I))))))))K))(S(K(S(K(S(SI(K(S(S(KS)K)(S(K(SII(S(S(KS)K)I)))(S(S(KS)K)(S(S(KS)K)I(S(S(KS)K)(SII(S(S(KS)K)I)))))))))))K))(S(K(S(SI(K(S(S(KS)K)(S(SII)I(S(S(KS)K)I))(S(S(KS)K))(SII(S(S(KS)K)(S(S(KS)K)I))))))))K))))))))))))))))(S(SI(K(S(S(KS)K)(S(S(KS)K)I)(S(S(KS)K)I))))(K(S(SI(K(S(S(KS)K)(S(K(S(S(KS)K)(SII(S(S(KS)K)I))))(S(S(KS)K)I(S(S(KS)K)(S(S(KS)K)I)))))))(K(K(SII(SII(S(S(KS)K)I)))))))))))))))))))
diff --git a/scheme/K-IS_tp.scm b/scheme/K-IS_tp.scm
@@ -0,0 +1,16 @@
+(load "LazyK/lazier")
+(load "LazyK/prelude")
+(load "LazyK/prelude-numbers")
+
+(lazy-def 'K_LI  '(o (cons 75) (o (cons 46) (o (cons 32) (o (cons 108) (cons 105))))))
+(lazy-def 'WILE_ALA_PALI '(o (cons 32) 
+			  (o (cons 119) (o (cons 105) (o (cons 108) (o (cons 101)
+			  (o (cons 32)
+			  (o (cons 97) (o (cons 108) (o (cons 97) 
+			  (o (cons 32)
+			  (o (cons 112) (o (cons 97) (o (cons 108) (o (cons 105) (cons 44))))))))))))))))
+
+(lazy-def '(main input)
+   '(o (K_LI) (o ((* 26 (1+ (* 64 10))) WILE_ALA_PALI) (o (cons 8) (cons 46))) end-of-output))
+
+(print-as-cc (laze 'main))
diff --git a/titles.csv b/titles.csv
@@ -10,6 +10,7 @@ hit, 𒄩𒀭𒉈𒌍𒅔 𒅁𒄑𒍪𒅅𒋛𒀉
 la, Iudicium (a Epizeuxis)
 mi, Ko te Whakawā (mā te tukurua)
 pt, O Julgamento (per Epizeuxis)
+tp, Utala (tan Episeuki)
 yi, דער פּראָצעס (דורך עפּיזעוקסיס)
 ###, Other Variations:
 template, Basic Output and Loops in Lazy-K