mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 10:02:47 +03:00
fixed :begin entropy bug
This commit is contained in:
parent
9564e1bc62
commit
3e2a16a3ea
@ -246,8 +246,7 @@
|
|||||||
|= [hen=duct wen=@da mer=mizu]
|
|= [hen=duct wen=@da mer=mizu]
|
||||||
^+ +>
|
^+ +>
|
||||||
%= +>
|
%= +>
|
||||||
vag ~& leta=let.dom
|
vag ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
|
||||||
?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
|
|
||||||
::yel [[hen %note '=' %leaf ~] yel] :: XX do better
|
::yel [[hen %note '=' %leaf ~] yel] :: XX do better
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -255,8 +254,7 @@
|
|||||||
|= [hen=duct wen=@da lem=nori]
|
|= [hen=duct wen=@da lem=nori]
|
||||||
^+ +>
|
^+ +>
|
||||||
%= +>
|
%= +>
|
||||||
vag ~& leto=let.dom
|
vag ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
|
||||||
?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
|
|
||||||
yel
|
yel
|
||||||
=+ pre=`path`~[(scot %p for) syd (scot %ud let.dom)]
|
=+ pre=`path`~[(scot %p for) syd (scot %ud let.dom)]
|
||||||
?- -.lem
|
?- -.lem
|
||||||
|
@ -105,10 +105,12 @@
|
|||||||
%eny
|
%eny
|
||||||
=+ a=(rush txt (boss 256 (more gon qit)))
|
=+ a=(rush txt (boss 256 (more gon qit)))
|
||||||
?~ a [[~ 'invalid input' ~] +>.$]
|
?~ a [[~ 'invalid input' ~] +>.$]
|
||||||
|
=. a (shax a)
|
||||||
:_ +>.$(eny u.a, sat %lag)
|
:_ +>.$(eny u.a, sat %lag)
|
||||||
:- `['Language: ' %text 'en']
|
:- `['Language: ' %text 'en']
|
||||||
%- lore %- crip
|
%- lore %- crip
|
||||||
"""
|
"""
|
||||||
|
Entropy check: {<`@p`(mug eny)>}
|
||||||
|
|
||||||
What language would your ship rather speak? Enter it as a
|
What language would your ship rather speak? Enter it as a
|
||||||
two-letter (ISO 639-1) code, like "en" for English. Whatever
|
two-letter (ISO 639-1) code, like "en" for English. Whatever
|
||||||
@ -545,13 +547,7 @@
|
|||||||
?~(pot.res ~ (spam %rush %prompt u.pot.res))
|
?~(pot.res ~ (spam %rush %prompt u.pot.res))
|
||||||
%- zing
|
%- zing
|
||||||
(turn (flop tak.res) |=(a=cord (spam %rush %txt a)))
|
(turn (flop tak.res) |=(a=cord (spam %rush %txt a)))
|
||||||
:_ +>.$
|
[[ost %give +.sih]~ +>.$]
|
||||||
:- [ost %give +.sih]
|
|
||||||
%+ turn (~(tap by sup.hid))
|
|
||||||
|= [ost=bone *]
|
|
||||||
:^ ost %give %rush
|
|
||||||
:- %tang :_ ~
|
|
||||||
[%leaf ?:(?=(%nice +<.sih) "begin successful" "begin failed")]
|
|
||||||
::
|
::
|
||||||
++ peer
|
++ peer
|
||||||
|=
|
|=
|
||||||
|
Loading…
Reference in New Issue
Block a user