ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 20:01:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Consistent phonemic base without scrambling

Browse Source
This commit is contained in:
Raymond Pasco 2015-08-07 12:13:46 -04:00
parent 544bcfba62
commit 3f25461f80
1 changed files with 22 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
arvo/hoon.hoon
View File

@ -3789,11 +3789,9 @@
|% |%
++ bix (bass 16 (stun [2 2] six)) ++ bix (bass 16 (stun [2 2] six))
++ fem (sear |=(a=@ (cha:fa a)) aln) ++ fem (sear |=(a=@ (cha:fa a)) aln)
++ hif (boss 256 ;~(plug tip tiq (easy ~))) ++ hif (bass 256 ;~(plug tip tiq (easy ~)))
++ huf %+ cook ++ huf (bass 0x1.0000 ;~(plug hif (stun [0 3] ;~(pfix hep hif))))
|=([a=@ b=@] (wred:un ~(zug mu ~(zag mu [a b])))) ++ hyf (bass 0x1.0000 ;~(plug hif (stun [3 3] ;~(pfix hep hif))))
;~(plug hif ;~(pfix hep hif))
++ hyf (bass 0x1.0000.0000 ;~(plug huf ;~(pfix hep huf) (easy ~)))
++ pev (bass 32 ;~(plug sev (stun [0 4] siv))) ++ pev (bass 32 ;~(plug sev (stun [0 4] siv)))
++ pew (bass 64 ;~(plug sew (stun [0 4] siw))) ++ pew (bass 64 ;~(plug sew (stun [0 4] siw)))
++ piv (bass 32 (stun [5 5] siv)) ++ piv (bass 32 (stun [5 5] siv))
@ -3855,13 +3853,12 @@
++ dim (ape (bass 10 ;~(plug sed:ab (star sid:ab)))) ++ dim (ape (bass 10 ;~(plug sed:ab (star sid:ab))))
++ dum (bass 10 (plus sid:ab)) ++ dum (bass 10 (plus sid:ab))
++ fed ;~ pose ++ fed ;~ pose
%+ bass 0x1.0000.0000.0000.0000
;~((glue doh) ;~(pose hyf:ab huf:ab) (more doh hyf:ab))
::
hyf:ab
huf:ab
hif:ab
tiq:ab tiq:ab
%+ bass 0x1.0000.0000.0000.0000
;~ plug
huf:ab
(star ;~(pfix doh hyf:ab))
==
== ==
++ fim (sear den:fa (bass 58 (plus fem:ab))) ++ fim (sear den:fa (bass 58 (plus fem:ab)))
++ hex (ape (bass 0x1.0000 ;~(plug qex:ab (star ;~(pfix dog qix:ab))))) ++ hex (ape (bass 0x1.0000 ;~(plug qex:ab (star ;~(pfix dog qix:ab)))))
@ -3940,33 +3937,22 @@
:- '~' :- '~'
?: (lte dyx 1) ?: (lte dyx 1)
(weld (trip (tod:po q.p.lot)) rex) (weld (trip (tod:po q.p.lot)) rex)
?: =(2 dyx) =+ dyy=(met 4 q.p.lot)
;: weld =+ imp=*@
(trip (tos:po (end 3 1 q.p.lot)))
(trip (tod:po (rsh 3 1 q.p.lot)))
rex
==
=+ [dyz=(met 5 q.p.lot) fin=| dub=&]
|- ^- tape |- ^- tape
?: =(0 dyz) ?: =(imp dyy)
rex rex
%= $ %= $
fin & q.p.lot (rsh 4 1 q.p.lot)
dub !dub imp +(imp)
dyz (dec dyz) rex
q.p.lot (rsh 5 1 q.p.lot) =+ log=(end 4 1 q.p.lot)
rex ;: weld
=+ syb=(wren:un (end 5 1 q.p.lot)) (trip (tos:po (rsh 3 1 log)))
=+ cog=~(zig mu [(rsh 4 1 syb) (end 4 1 syb)]) (trip (tod:po (end 3 1 log)))
;: weld ?:(=((mod imp 4) 0) ?:(=(imp 0) "" "--") "-")
(trip (tos:po (end 3 1 p.cog))) rex
(trip (tod:po (rsh 3 1 p.cog))) ==
`tape`['-' ~]
(trip (tos:po (end 3 1 q.cog)))
(trip (tod:po (rsh 3 1 q.cog)))
`tape`?.(fin ~ ['-' ?.(dub ~ ['-' ~])])
rex
==
== ==
:: ::
%r %r