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

Scramble phonemic base with ++ob

Browse Source
This commit is contained in:
Raymond Pasco 2015-08-07 12:26:48 -04:00
parent 3f25461f80
commit 7fbbe476e0
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
arvo/hoon.hoon
View File

@ -3852,7 +3852,8 @@
++ dem (ape (bass 1.000 ;~(plug ted:ab (star ;~(pfix dog tid:ab))))) ++ dem (ape (bass 1.000 ;~(plug ted:ab (star ;~(pfix dog tid:ab)))))
++ 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 %+ cook fend:ob
;~ pose
tiq:ab tiq:ab
%+ bass 0x1.0000.0000.0000.0000 %+ bass 0x1.0000.0000.0000.0000
;~ plug ;~ plug
@ -3933,20 +3934,21 @@
== ==
:: ::
%p %p
=+ dyx=(met 3 q.p.lot) =+ sxz=(feen:ob q.p.lot)
=+ dyx=(met 3 sxz)
:- '~' :- '~'
?: (lte dyx 1) ?: (lte dyx 1)
(weld (trip (tod:po q.p.lot)) rex) (weld (trip (tod:po sxz)) rex)
=+ dyy=(met 4 q.p.lot) =+ dyy=(met 4 sxz)
=+ imp=*@ =+ imp=*@
|- ^- tape |- ^- tape
?: =(imp dyy) ?: =(imp dyy)
rex rex
%= $ %= $
q.p.lot (rsh 4 1 q.p.lot) sxz (rsh 4 1 sxz)
imp +(imp) imp +(imp)
rex rex
=+ log=(end 4 1 q.p.lot) =+ log=(end 4 1 sxz)
;: weld ;: weld
(trip (tos:po (rsh 3 1 log))) (trip (tos:po (rsh 3 1 log)))
(trip (tod:po (end 3 1 log))) (trip (tod:po (end 3 1 log)))