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

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