2022-11-30 05:44:51 +03:00
|
|
|
/- *sock
|
|
|
|
|
/- *gene
|
2022-11-30 08:59:04 +03:00
|
|
|
/+ ska
|
2022-09-15 02:51:52 +03:00
|
|
|
|%
|
2022-12-02 08:13:37 +03:00
|
|
|
++ plot :: subject knowledge analysis, emitting nock-- or "nomm"
|
2022-11-30 05:44:51 +03:00
|
|
|
=| ski=farm
|
|
|
|
|
|= ent=barn
|
|
|
|
|
^- [boot farm]
|
2022-11-30 08:59:04 +03:00
|
|
|
=/ ext (~(get by yard.ski) ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?. ?=(~ ext) [says.u.ext ski]
|
2022-11-30 08:59:04 +03:00
|
|
|
=; [res=[does=nomm says=boot:ska] sku=farm]
|
|
|
|
|
[says.res sku(yard (~(put by yard.sku) ent res), wood [ent wood.sku])]
|
|
|
|
|
:: blackhole, guard recursion
|
|
|
|
|
=. ski ski(yard (~(put by yard.ski) ent [[%zer 0 %.n] [%risk %toss ~]]))
|
|
|
|
|
|- ^- [[does=nomm says=boot:ska] farm]
|
2022-09-15 02:51:52 +03:00
|
|
|
=<
|
2022-11-30 05:44:51 +03:00
|
|
|
?+ for.ent bomb
|
|
|
|
|
[[* *] *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [doth=nomm sath=boot:ska] ski $(for.ent -.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] sath) bomb
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [toes=nomm tays=boot:ska] ski $(for.ent +.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] tays) bomb
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ (cobb:ska sath tays)
|
2022-11-30 08:59:04 +03:00
|
|
|
[%par doth toes]
|
|
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%0 @]
|
|
|
|
|
:: we can decompose the axis into two axes, a safe axis which can
|
|
|
|
|
:: be implemented unchecked, and an unsafe axis which must be
|
|
|
|
|
:: checked. We then compose these two axes into safe %zer and
|
|
|
|
|
:: unsafe %zer composed by %sev
|
2022-11-30 08:59:04 +03:00
|
|
|
=+ [saf rik ken]=(punt:ska +.for.ent sub.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: =(0 saf) bomb
|
|
|
|
|
:_ ski
|
2022-11-30 08:59:04 +03:00
|
|
|
?: =(1 rik) [[%zer saf %.y] [%safe ken]]
|
|
|
|
|
?: =(1 saf) [[%zer rik %.n] [%risk ken]]
|
2022-11-30 05:44:51 +03:00
|
|
|
:_ [%risk ken]
|
|
|
|
|
[%sev [%zer saf %.y] [%zer rik %.n]]
|
|
|
|
|
::
|
|
|
|
|
[%1 *]
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ [%safe %know +.for.ent]
|
|
|
|
|
[%one +.for.ent]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%2 * *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [dost=nomm sass=boot:ska] ski $(for.ent +<.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] sass) bomb
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [doff=nomm faff=boot:ska] ski $(for.ent +>.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] faff) bomb
|
|
|
|
|
=/ skun
|
|
|
|
|
?- sass
|
|
|
|
|
[%safe *] sure.sass
|
|
|
|
|
[%risk *] hope.sass
|
|
|
|
|
==
|
|
|
|
|
?: ?=([%safe %know *] faff)
|
|
|
|
|
=^ ret ski ^$(ent [skun know.sure.faff])
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ ?: ?=([%safe *] sass) ret (dare:ska ret)
|
|
|
|
|
[%two dost doff skun (some know.sure.faff) %.y]
|
|
|
|
|
?: ?=([%risk %know *] faff)
|
|
|
|
|
=^ ret ski ^$(ent [skun know.hope.faff])
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ (dare:ska ret)
|
|
|
|
|
[%two dost doff skun (some know.hope.faff) %.n]
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ [%risk %toss ~]
|
|
|
|
|
[%two dost doff skun ~ %.n]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%3 *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [deft=nomm koob=boot:ska] ski $(for.ent +.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] koob) bomb
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ (ques:ska koob)
|
|
|
|
|
[%thr deft]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%4 *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [dink=nomm sink=boot:ska] ski $(for.ent +.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] sink) bomb
|
|
|
|
|
=/ rink
|
|
|
|
|
?- sink
|
|
|
|
|
[%safe *] sure.sink
|
|
|
|
|
[%risk *] hope.sink
|
|
|
|
|
==
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ (pile:ska sink)
|
|
|
|
|
[%fou dink ?|(?=([%dice ~] rink) ?=([%flip ~] rink) ?=([%know @] rink))]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%5 * *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [dome=nomm foam=boot:ska] ski $(for.ent +<.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] foam) bomb
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [doot=nomm foot=boot:ska] ski $(for.ent +>.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] foot) bomb
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ (bopp:ska foam foot)
|
|
|
|
|
[%fiv dome doot]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%6 * * *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [dawn=nomm sond=boot:ska] ski $(for.ent +<.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%safe %know %0] sond) $(for.ent +>-.for.ent)
|
|
|
|
|
?: ?=([%safe %know %1] sond) $(for.ent +>+.for.ent)
|
2022-11-30 08:59:04 +03:00
|
|
|
?: ?=([%safe %know *] sond) bomb
|
|
|
|
|
?: ?=([%safe %bets *] sond) bomb
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%safe %flip ~] sond)
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [drew=nomm slew=boot:ska] ski $(for.ent +>-.for.ent)
|
|
|
|
|
=^ [darn=nomm song=boot:ska] ski $(for.ent +>+.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
:_ ski
|
|
|
|
|
:_ (gnaw:ska slew song)
|
2022-11-30 08:59:04 +03:00
|
|
|
[%six dawn drew darn]
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%risk %know %0] sond)
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [drew=nomm slew=boot:ska] ski $(for.ent +>-.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
:_ ski
|
|
|
|
|
:_ (dare:ska slew)
|
2022-11-30 08:59:04 +03:00
|
|
|
:: run dawn in case it crashes, but throw it away
|
|
|
|
|
[%sev [%par dawn drew] [%zer 3 %.y]]
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%risk %know %1] sond)
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [darn=nomm song=boot:ska] ski $(for.ent +>+.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
:_ ski
|
|
|
|
|
:_ (dare:ska song)
|
2022-11-30 08:59:04 +03:00
|
|
|
:: run dawn in case it crashes, but throw it away
|
|
|
|
|
[%sev [%par dawn darn] [%zer 3 %.y]]
|
|
|
|
|
?: ?=([%risk %know *] sond) bomb
|
|
|
|
|
?: ?=([%risk %bets *] sond) bomb
|
|
|
|
|
=^ [drew=nomm slew=boot:ska] ski $(for.ent +>-.for.ent)
|
|
|
|
|
=^ [darn=nomm song=boot:ska] ski $(for.ent +>+.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
:_ ski
|
|
|
|
|
:_ (dare:ska (gnaw:ska slew song))
|
|
|
|
|
[%six dawn drew darn]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%7 * *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [deck=nomm keck=boot:ska] ski $(for.ent +<.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] keck) bomb
|
|
|
|
|
=/ news
|
|
|
|
|
?- keck
|
|
|
|
|
[%safe *] sure.keck
|
|
|
|
|
[%risk *] hope.keck
|
|
|
|
|
==
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [dest=nomm zest=boot:ska] ski $(sub.ent news, for.ent +>.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] zest) bomb
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ ?: ?=([%safe *] keck) zest (dare:ska zest)
|
|
|
|
|
[%sev deck dest]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%8 * *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [pink=nomm pest=boot:ska] ski $(for.ent +<.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] pest) bomb
|
|
|
|
|
=/ nest
|
|
|
|
|
?- pest
|
|
|
|
|
[%safe *] sure.pest
|
|
|
|
|
[%risk *] hope.pest
|
|
|
|
|
==
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [dest=nomm zest=boot:ska] ski
|
|
|
|
|
$(sub.ent (knit:ska nest sub.ent), for.ent +>.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] zest) bomb
|
|
|
|
|
:_ ski
|
2022-11-30 08:59:04 +03:00
|
|
|
:_ ?: ?=([%safe *] pest)
|
|
|
|
|
zest
|
|
|
|
|
(dare:ska zest)
|
2022-12-02 08:13:37 +03:00
|
|
|
[%sev [%par pink %zer 1 %.y] dest]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-09-15 05:26:05 +03:00
|
|
|
[%9 @ *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [lore=nomm sore=boot:ska] ski $(for.ent +>.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] sore) bomb
|
|
|
|
|
=/ news
|
|
|
|
|
?- sore
|
|
|
|
|
[%safe *] sure.sore
|
|
|
|
|
[%risk *] hope.sore
|
2022-09-15 02:51:52 +03:00
|
|
|
==
|
2022-11-30 05:44:51 +03:00
|
|
|
=/ fork (pull:ska +<.for.ent news)
|
|
|
|
|
?: ?=([%safe %know *] fork)
|
|
|
|
|
=^ ret ski ^$(ent [news know.sure.fork])
|
|
|
|
|
:_ ski
|
2022-11-30 08:59:04 +03:00
|
|
|
:_ ?: ?=([%safe *] sore)
|
|
|
|
|
ret
|
|
|
|
|
(dare:ska ret)
|
2022-12-02 08:13:37 +03:00
|
|
|
[%sev lore [%two [%zer 1 %.y] [%zer +<.for.ent %.y] news (some know.sure.fork) %.y]]
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%risk %know *] fork)
|
|
|
|
|
=^ ret ski ^$(ent [news know.hope.fork])
|
|
|
|
|
:_ ski
|
|
|
|
|
:_ (dare:ska ret)
|
2022-12-02 08:13:37 +03:00
|
|
|
[%sev lore [%two [%zer 1 %.y] [%zer +<.for.ent %.n] news (some know.hope.fork) %.n]]
|
2022-11-30 05:44:51 +03:00
|
|
|
:_ ski
|
|
|
|
|
:_ [%risk %toss ~]
|
2022-12-02 08:13:37 +03:00
|
|
|
[%sev lore [%two [%zer 1 %.y] [%zer +<.for.ent ?=(%safe -.fork)] news ~ ?=(%safe -.fork)]]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%10 [@ *] *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [neat=nomm seat=boot:ska] ski $(for.ent +>.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] seat) bomb
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [pace=nomm spat=boot:ska] ski $(for.ent +<+.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] spat) bomb
|
|
|
|
|
=/ teak
|
|
|
|
|
?- seat
|
|
|
|
|
[%safe *] sure.seat
|
|
|
|
|
[%risk *] hope.seat
|
|
|
|
|
==
|
2022-11-30 08:59:04 +03:00
|
|
|
=+ [saf rik ken]=(punt:ska +<-.for.ent teak)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: =(0 saf) bomb
|
2022-11-30 08:59:04 +03:00
|
|
|
:_ ski
|
|
|
|
|
:_ (welt:ska +<-.for.ent spat seat)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: =(1 rik)
|
2022-11-30 08:59:04 +03:00
|
|
|
[%ten [+<-.for.ent pace] neat %.y]
|
|
|
|
|
^- nomm
|
|
|
|
|
:+ %sev [%par neat pace]
|
|
|
|
|
:+ %ten
|
|
|
|
|
[saf %ten [rik %zer 3 %.n] [%zer (peg saf 2) %.y] %.y]
|
|
|
|
|
[[%zer 2 %.y] %.y]
|
|
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%11 @ *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [real=nomm seal=boot:ska] ski $(for.ent +>.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] seal) bomb
|
2022-11-30 08:59:04 +03:00
|
|
|
^- [[does=nomm says=boot:ska] farm]
|
|
|
|
|
[[[%els +<.for.ent real] seal] ski]
|
|
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%11 [@ *] *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [fake=nomm sake=boot:ska] ski $(for.ent +<+.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] sake) bomb
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [real=nomm seal=boot:ska] ski $(for.ent +>.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] seal) bomb
|
|
|
|
|
:_ ski
|
|
|
|
|
?: ?=([%safe *] sake)
|
|
|
|
|
[[%eld [+<-.for.ent fake] real %.y] seal]
|
|
|
|
|
[[%eld [+<-.for.ent fake] real %.n] seal]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
2022-11-30 05:44:51 +03:00
|
|
|
[%12 * *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [fear=nomm sear=boot:ska] ski $(for.ent +<.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] sear) bomb
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [pack=nomm sack=boot:ska] ski $(for.ent +>.for.ent)
|
2022-11-30 05:44:51 +03:00
|
|
|
?: ?=([%boom ~] sack) bomb
|
2022-11-30 08:59:04 +03:00
|
|
|
:_ ski
|
|
|
|
|
:_ [%risk %toss ~]
|
2022-11-30 05:44:51 +03:00
|
|
|
[%twe fear pack]
|
|
|
|
|
==
|
|
|
|
|
|%
|
2022-11-30 08:59:04 +03:00
|
|
|
++ bomb
|
|
|
|
|
^- [[nomm boot:ska] farm]
|
|
|
|
|
[[[%zer 0 %.n] [%boom ~]] ski]
|
2022-11-30 05:44:51 +03:00
|
|
|
--
|
|
|
|
|
++ till
|
|
|
|
|
=| burg=town
|
|
|
|
|
|= =farm
|
|
|
|
|
^- town
|
2022-11-30 08:59:04 +03:00
|
|
|
=/ work (flop (skip wood.farm ~(has in ~(key by land.burg))))
|
|
|
|
|
|- ^+ burg
|
|
|
|
|
?~ work burg
|
|
|
|
|
=/ next i.work
|
2022-11-30 05:44:51 +03:00
|
|
|
=+ ~| %next-miss (~(got by yard.farm) next)
|
|
|
|
|
:: now we have the nock-- in does
|
|
|
|
|
=/ dock [lamb=lamb.burg lake=*lake]
|
|
|
|
|
=| flow=line
|
|
|
|
|
=/ axle=@ 1
|
2022-11-30 08:59:04 +03:00
|
|
|
=/ fawn does
|
|
|
|
|
=- =. lamb.burg lamb.dock
|
|
|
|
|
=. land.burg
|
|
|
|
|
%+ ~(put by land.burg) next
|
|
|
|
|
:_ says
|
|
|
|
|
:- (~(put by lake.dock) ~ [~ %hop her])
|
|
|
|
|
|- ^- (list @)
|
|
|
|
|
?- -.hat
|
|
|
|
|
%fork (weld $(hat left.hat) $(hat rite.hat))
|
|
|
|
|
%tine [+.hat]~
|
|
|
|
|
%disc ~
|
|
|
|
|
==
|
|
|
|
|
$(work t.work)
|
|
|
|
|
|^ ^- [[hat=plow her=berm] dock=_dock]
|
|
|
|
|
?- fawn
|
|
|
|
|
[%par * *]
|
|
|
|
|
=^ [one=plow two=plow her=berm] dock twin
|
|
|
|
|
=^ [bat=plow bit=berm] dock
|
|
|
|
|
$(fawn +>.fawn, axle (peg axle 3), flow [%moat her two])
|
|
|
|
|
=^ [hat=plow hit=berm] dock
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 2), flow [%moat bit one])
|
|
|
|
|
(copy hat bat hit)
|
|
|
|
|
::
|
|
|
|
|
[%zer *]
|
|
|
|
|
?- -.flow
|
|
|
|
|
%moat
|
2022-11-30 05:44:51 +03:00
|
|
|
=/ slow (take +<.fawn what.flow +>.fawn)
|
|
|
|
|
?~ slow
|
2022-11-30 08:59:04 +03:00
|
|
|
fail
|
2022-11-30 05:44:51 +03:00
|
|
|
:_ dock
|
|
|
|
|
[u.slow wher.flow]
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
|
|
|
|
%rift
|
|
|
|
|
=^ miff dock wean
|
|
|
|
|
=/ slow (take +<.fawn [%tine miff] +>.fawn)
|
|
|
|
|
?~ slow
|
|
|
|
|
fail
|
|
|
|
|
=^ her dock (mend %miff ~ [%brn miff [troo fals]:flow])
|
|
|
|
|
:_ dock
|
|
|
|
|
[u.slow her]
|
|
|
|
|
::
|
|
|
|
|
%pond
|
|
|
|
|
=^ tend dock wean
|
|
|
|
|
=/ slow (take +<.fawn [%tine tend] +>.fawn)
|
|
|
|
|
?~ slow
|
|
|
|
|
fail
|
|
|
|
|
=^ her dock (mend %tend ~ [%don tend])
|
|
|
|
|
:_ dock
|
|
|
|
|
[u.slow her]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
[%one *]
|
|
|
|
|
(bang +.fawn)
|
|
|
|
|
::
|
|
|
|
|
[%two *]
|
2022-12-02 08:13:37 +03:00
|
|
|
?- -.flow
|
|
|
|
|
%moat
|
|
|
|
|
=^ flaw dock (peel what.flow wher.flow)
|
|
|
|
|
(tool `flaw +.fawn)
|
|
|
|
|
::
|
|
|
|
|
%rift
|
|
|
|
|
=^ muse dock wean
|
|
|
|
|
=^ skit dock (mend %skit ~ [%brn muse [troo fals]:flow])
|
|
|
|
|
(tool `[muse skit] +.fawn)
|
|
|
|
|
::
|
|
|
|
|
%pond
|
|
|
|
|
(tool ~ +.fawn)
|
|
|
|
|
==
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
|
|
|
|
[%thr *]
|
|
|
|
|
?- -.flow
|
|
|
|
|
%moat
|
|
|
|
|
?- -.what.flow
|
|
|
|
|
%fork fail
|
|
|
|
|
%disc $(fawn +.fawn, axle (peg axle 3))
|
|
|
|
|
%tine
|
|
|
|
|
=^ pear dock (mend %pear [%imm 0 +.what.flow]~ [%hop wher.flow])
|
|
|
|
|
=^ bock dock (mend %bock [%imm 1 +.what.flow]~ [%hop wher.flow])
|
|
|
|
|
=^ noon dock wean
|
|
|
|
|
=^ keck dock (mend %keck ~ [%clq noon pear bock])
|
|
|
|
|
$(fawn +.fawn, axle (peg axle 3), flow [%moat keck [%tine noon]])
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%rift
|
|
|
|
|
=^ noon dock wean
|
|
|
|
|
=^ keck dock (mend %keck ~ [%clq noon [troo fals]:flow])
|
|
|
|
|
$(fawn +.fawn, axle (peg axle 3), flow [%moat keck [%tine noon]])
|
|
|
|
|
::
|
|
|
|
|
%pond
|
|
|
|
|
=^ tend dock wean
|
|
|
|
|
=^ pear dock (mend %pear [%imm 0 tend]~ [%don tend])
|
|
|
|
|
=^ bock dock (mend %bock [%imm 1 tend]~ [%don tend])
|
|
|
|
|
=^ noon dock wean
|
|
|
|
|
=^ keck dock (mend %keck ~ [%clq noon pear bock])
|
|
|
|
|
$(fawn +.fawn, axle (peg axle 3), flow [%moat keck [%tine noon]])
|
|
|
|
|
==
|
2022-12-02 08:13:37 +03:00
|
|
|
::
|
|
|
|
|
[%fou *]
|
|
|
|
|
?- -.flow
|
|
|
|
|
%moat
|
|
|
|
|
?- -.what.flow
|
|
|
|
|
%fork fail
|
|
|
|
|
%disc
|
|
|
|
|
=^ left dock wean
|
|
|
|
|
?: +>.fawn :: safe?
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat wher.flow [%tine left]])
|
|
|
|
|
=^ meal dock wean
|
|
|
|
|
=^ dink dock (mend %dink ~[[%inc smol left]] [%hop wher.flow])
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat dink [%tine meal])
|
|
|
|
|
::
|
|
|
|
|
%tine
|
|
|
|
|
=^ meal dock wean
|
|
|
|
|
=^ rink dock
|
|
|
|
|
?: +>.fawn
|
|
|
|
|
(mend %rink ~[[%unc meal +.what.flow]] [%hop wher.flow])
|
|
|
|
|
(mend %rink ~[[%inc meal +.what.flow]] [%hop wher.flow])
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat rink [%tine meal]])
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%rift
|
|
|
|
|
=^ iffy dock wean
|
|
|
|
|
=^ miff dock wean
|
|
|
|
|
=^ kink dock
|
|
|
|
|
?: +>.fawn :: safe?
|
|
|
|
|
(mend %kink ~[[%unc miff iffy]] [%brn iffy [troo fals]:flow])
|
|
|
|
|
(mend %kink ~[[%inc miff iffy]] [%brn iffy [troo fals]:flow])
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat kink [%tine miff]])
|
|
|
|
|
::
|
|
|
|
|
%pond
|
|
|
|
|
=^ pend dock wean
|
|
|
|
|
=^ spin dock wean
|
|
|
|
|
=^ pink dock
|
|
|
|
|
?: +>.fawn :: safe?
|
|
|
|
|
(mend %pink ~[[%unc spin pend]] [%don pend])
|
|
|
|
|
(mend %pink ~[[%inc spin pend]] [%don pend])
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat pink [%tine spin]])
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
[%fiv *]
|
|
|
|
|
?- -.flow
|
|
|
|
|
%moat
|
|
|
|
|
?- -.what.flow
|
|
|
|
|
%fork fail
|
|
|
|
|
%disc
|
|
|
|
|
=^ [hit=plow his=berm] dock $(fawn +<.fawn, axle (peg axle 6))
|
|
|
|
|
=^ [hot=plow hog=berm] dock
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 7), flow [%moat his [%disc ~]])
|
|
|
|
|
(copy hit hot hog)
|
|
|
|
|
::
|
|
|
|
|
%tine
|
|
|
|
|
=^ root dock (mend %root ~[[%imm 0 +.what.flow]] [%hop wher.flow])
|
|
|
|
|
=^ salt dock (mend %salt ~[[%imm 1 +.what.flow]] [%hop wher.flow])
|
|
|
|
|
=^ load dock wean
|
|
|
|
|
=^ toad dock wean
|
|
|
|
|
=^ qual dock (mend %qual ~ [%eqq load toad root salt])
|
|
|
|
|
=^ [hit=plow his=berm] dock
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat qual [%tine load]])
|
|
|
|
|
=^ [hot=plow hog=berm] dock
|
|
|
|
|
$(fawn +>.fawn, axle (peg axle 7), flow [%moat his [%tine toad]])
|
|
|
|
|
(copy hit hot hog)
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%rift
|
|
|
|
|
=^ load dock wean
|
|
|
|
|
=^ toad dock wean
|
|
|
|
|
=^ rail dock (mend %rail ~ [%eqq load toad [troo fals]:flow])
|
|
|
|
|
=^ [hit=plow his=berm] dock
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat qual [%tine load]])
|
|
|
|
|
=^ [hot=plow hog=berm] dock
|
|
|
|
|
$(fawn +>.fawn, axle (peg axle 7), flow [%moat his [%tine toad]])
|
|
|
|
|
(copy hit hot hog)
|
|
|
|
|
::
|
|
|
|
|
%pond
|
|
|
|
|
=^ bean dock wean
|
|
|
|
|
=^ root dock (mend %root ~[[%imm 0 bean]] [%don bean])
|
|
|
|
|
=^ salt dock (mend %salt ~[[%imm 1 bean]] [%don bean])
|
|
|
|
|
=^ load dock wean
|
|
|
|
|
=^ toad dock wean
|
|
|
|
|
=^ fall dock (mend %fall ~ [%eqq load toad root salt])
|
|
|
|
|
=^ [hit=plow his=berm] dock
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat fall [%tine load]])
|
|
|
|
|
=^ [hot=plow hog=berm] dock
|
|
|
|
|
$(fawn +>.fawn, axle (peg axle 7), flow [%moat his [%tine toad]])
|
|
|
|
|
(copy hit hot hog)
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
[%six *]
|
|
|
|
|
=^ [hut=plow hum=berm] dock $(fawn +>-.fawn, axle (peg axle 14))
|
|
|
|
|
=^ [hat=plow ham=berm] dock $(fawn +>+.fawn, axle (peg axle 15))
|
|
|
|
|
=^ [hot=plow hog=berm] dock
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%rift hum ham])
|
|
|
|
|
=^ [hit=plow him=berm] dock (copy hut hat hog)
|
|
|
|
|
(copy hit hot him)
|
2022-11-30 08:59:04 +03:00
|
|
|
::
|
|
|
|
|
[%sev *]
|
|
|
|
|
=^ [hit=plow his=berm] dock $(fawn +>.fawn, axle (peg axle 7))
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat his hit])
|
|
|
|
|
::
|
2022-12-02 08:13:37 +03:00
|
|
|
[%ten *]
|
|
|
|
|
?- -.flow
|
|
|
|
|
%moat
|
|
|
|
|
=^ [out=plow inn=plow tub=berm] dock (tear +<-.fawn what.flow +>+.fawn wher.flow)
|
|
|
|
|
=^ [hat=plow him=berm] dock $(fawn +<+.fawn, axle (peg axle 13), flow [%moat tub inn])
|
|
|
|
|
=^ [hut=plow mud=berm] dock $(fawn +>-.fawn, axle (peg axle 14). flow [%moat him out])
|
|
|
|
|
(copy hat hut mud)
|
|
|
|
|
::
|
|
|
|
|
%rift
|
|
|
|
|
:: this is a weird case. It only works if the axis is one,
|
|
|
|
|
:: otherwise it crashes, and there's no point in an axis edit of
|
|
|
|
|
:: one except to discard the first result
|
|
|
|
|
?. =(1 +<-.fawn) fail
|
|
|
|
|
=^ hide dock wean
|
|
|
|
|
=^ mood (mend %mood ~ [%brn hide [troo fals]:flow])
|
|
|
|
|
=^ [hat=plow him=berm] dock
|
|
|
|
|
$(fawn +<+.fawn, axle (peg axle 13), flow [%moat mood [%tine hide]])
|
|
|
|
|
=^ [hut=plow mud=berm] dock
|
|
|
|
|
$(fawn +>-.fawn, axle (peg axle 14), flow [%moat him [%disc ~]])
|
|
|
|
|
(copy hat hut mud)
|
|
|
|
|
::
|
|
|
|
|
%pond
|
|
|
|
|
=^ dire dock wean
|
|
|
|
|
=^ eden dock (mend %eden ~ [%don dire])
|
|
|
|
|
=^ [out=plow inn=plow tub=berm] dock (tear +<-.fawn [%tine dire] +>+.fawn eden)
|
|
|
|
|
=^ [hat=plow him=berm] dock $(fawn +<+.fawn, axle (peg axle 13), flow [%moat tub inn])
|
|
|
|
|
=^ [hut=plow mud=berm] dock $(fawn +>-.fawn, axle (peg axle 14). flow [%moat him out])
|
|
|
|
|
(copy hat hut mud)
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
[%els *]
|
|
|
|
|
=^ [hat=plow him=berm] dock $(fawn +>.fawn, axle (peg axle 7))
|
|
|
|
|
=^ pint dock wean
|
|
|
|
|
=^ tint dock (mend %tint ~[[%imm +<.fawn pint]] [%hnt pint him])
|
|
|
|
|
:_ dock
|
|
|
|
|
[hat tint]
|
|
|
|
|
::
|
|
|
|
|
[%eld *]
|
|
|
|
|
=^ [hat=plow him=berm] dock $(fawn +>.fawn, axle (peg axle 7))
|
|
|
|
|
=^ pint dock wean
|
|
|
|
|
=^ dint dock wean
|
|
|
|
|
=^ aint dock wean
|
|
|
|
|
=^ tint dock (mend %tint ~[[%imm +<-.fawn pint] [%con pint dint aint]] [%hnt aint him])
|
|
|
|
|
=^ [hit=plow his=berm] dock $(fawn +<+.fawn, axle (peg axle 13), flow [%moat tint [%tine dint])
|
|
|
|
|
(copy hat hit his)
|
|
|
|
|
::
|
|
|
|
|
[%twe *]
|
|
|
|
|
?- -.flow
|
|
|
|
|
%moat
|
|
|
|
|
=^ [use=@ her=berm] dock (peel what.flow wher.flow)
|
|
|
|
|
=^ fens dock wean
|
|
|
|
|
=^ phat dock wean
|
|
|
|
|
=^ cope dock (mend %cope ~ [%spy fens fat use her])
|
|
|
|
|
=^ [ham=plow pan=berm] dock
|
|
|
|
|
$(fawn +>.fawn, axle (peg axle 7), flow [%moat cope [%tine phat]])
|
|
|
|
|
=^ [hen=plow pen=berm] dock
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat pan [%tine fens]])
|
|
|
|
|
(copy ham hen pen)
|
|
|
|
|
::
|
|
|
|
|
%rift
|
|
|
|
|
=^ sift dock wean
|
|
|
|
|
=^ bars (mend %bars ~ [%brn sift [troo fals]:flow])
|
|
|
|
|
=^ fens dock wean
|
|
|
|
|
=^ phat dock wean
|
|
|
|
|
=^ cope dock (mend %cope ~ [%spy fens fat sift bars])
|
|
|
|
|
=^ [ham=plow pan=berm] dock
|
|
|
|
|
$(fawn +>.fawn, axle (peg axle 7), flow [%moat cope [%tine phat]])
|
|
|
|
|
=^ [hen=plow pen=berm] dock
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat pan [%tine fens]])
|
|
|
|
|
(copy ham hen pen)
|
|
|
|
|
::
|
|
|
|
|
%pond
|
|
|
|
|
=^ sped dock wean
|
|
|
|
|
=^ sear (mend %sear ~ [%don sped])
|
|
|
|
|
=^ fens dock wean
|
|
|
|
|
=^ phat dock wean
|
|
|
|
|
=^ cope dock (mend %cope ~ [%spy fens fat sped sear])
|
|
|
|
|
=^ [ham=plow pan=berm] dock
|
|
|
|
|
$(fawn +>.fawn, axle (peg axle 7), flow [%moat cope [%tine phat]])
|
|
|
|
|
=^ [hen=plow pen=berm] dock
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat pan [%tine fens]])
|
|
|
|
|
(copy ham hen pen)
|
|
|
|
|
==
|
2022-11-30 08:59:04 +03:00
|
|
|
==
|
|
|
|
|
++ fail
|
|
|
|
|
^- [[hat=plow her=berm] dock=_dock]
|
|
|
|
|
=^ hole dock bomb
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%disc ~] hole]
|
2022-12-02 08:13:37 +03:00
|
|
|
++ tear :: take apart an ssa map for an edit
|
|
|
|
|
|= [axe=@ bit=plow safe=? her=berm]
|
|
|
|
|
^- [[out=plow inn=plow his=berm] _dock]
|
|
|
|
|
?: =(0 axe)
|
|
|
|
|
=^ hole dock bomb
|
|
|
|
|
[[[%disc ~] [%disc ~] hole] dock]
|
|
|
|
|
=+
|
|
|
|
|
|- ^- [[out=plow inn=plow rind=(list bran)] deck=_dock]
|
|
|
|
|
?: =(1 axe)
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%disc ~] bit ~]
|
|
|
|
|
?- -.bit
|
|
|
|
|
%disc
|
|
|
|
|
?: safe [[[%disc ~] [%disc ~] ~] dock]
|
|
|
|
|
?- (cap axe)
|
|
|
|
|
%2
|
|
|
|
|
=^ ruck dock $(axe (mas axe))
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%fork out.ruck [%disc ~] %.n] inn.ruck rind.ruck]
|
|
|
|
|
%3
|
|
|
|
|
=^ ruck dock $(axe (mas axe))
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%fork [%disc ~] out.ruck %.n] inn.ruck rind.ruck]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%tine
|
|
|
|
|
=^ tour dock wean
|
|
|
|
|
=^ plat dock wean
|
|
|
|
|
?- (cap axe)
|
|
|
|
|
%2
|
|
|
|
|
=^ ruck dock $(axe (mas axe), bit [%tine plat])
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%fork out.ruck [%tine tour] safe] inn.ruck [[%con plat tour +.bit] rind.ruck]]
|
|
|
|
|
%3
|
|
|
|
|
=^ ruck dock $(axe (mas axe), bit [%ine plat])
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%fork [%tine tour] out.ruck safe] inn.ruck [[%con tour plat +.bit] rind.ruck]]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%fork
|
|
|
|
|
?- (cap axe)
|
|
|
|
|
%2
|
|
|
|
|
=^ ruck dock $(axe (mas axe), bit left.bit)
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%fork out.ruck rite.bit ?&(safe safe.bit)] inn.ruck rind.ruck]
|
|
|
|
|
%3
|
|
|
|
|
=^ ruck dock $(axe (mas axe), bit rite.bit)
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%fork left.bit out.ruck ?&(safe safe.bit)] inn.ruck rind.ruck]
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
=. dock deck
|
|
|
|
|
?~ rind
|
|
|
|
|
:_ dock
|
|
|
|
|
[out inn her]
|
|
|
|
|
=^ him dock (mend %diet rind [%hop her])
|
|
|
|
|
:_ dock
|
|
|
|
|
[out inn him]
|
|
|
|
|
++ tool :: generate calls
|
|
|
|
|
|= [flaw=(unit [rut=@ rot=berm]) sums=nomm form=nomm sunk=sock fork=(unit *) safe=?]
|
|
|
|
|
^- [[plow berm] _dock]
|
|
|
|
|
?~ fork
|
|
|
|
|
=^ lash dock wean
|
|
|
|
|
=^ frog dock wean
|
|
|
|
|
=^ coil dock
|
|
|
|
|
?~ flaw
|
|
|
|
|
(mend %coil ~ [%lnt frog lash])
|
|
|
|
|
(mend %coil ~ [%lnk frog lash rut.u.flaw rot.u.flaw])
|
|
|
|
|
=^ [bow=plow urn=berm] dock
|
|
|
|
|
$(fawn summ, axle (peg axle 6), flow [%moat coil [%tine lash]])
|
|
|
|
|
=^ [fog=plow sog=berm] dock
|
|
|
|
|
$(fawn form, axle (peg axle 14), flow [%moat urn [%tine frog]])
|
|
|
|
|
(copy fog bow sog)
|
|
|
|
|
=/ bale=barn [sunk u.fork]
|
|
|
|
|
=/ bore (~(get by land.burg) bale)
|
|
|
|
|
?~ bore :: we don't know the registerization of the subject for the call, yet
|
|
|
|
|
=^ lash dock wean
|
|
|
|
|
=^ dote dock
|
|
|
|
|
?~ flaw
|
|
|
|
|
(mend %dote ~ [%eye bale lash])
|
|
|
|
|
(mend %dote ~ [%bec bale lash rut.u.flaw rot.u.flaw])
|
|
|
|
|
=^ [bow=plow urn=berm] dock
|
|
|
|
|
$(fawn summ, axle (peg axle 6), flow [%moat dote [%tine lash]])
|
|
|
|
|
?: safe [[bow urn] dock]
|
|
|
|
|
=^ [fog=plow sog=berm] dock
|
|
|
|
|
$(fawn form, axle (peg axle 14), flow [%mote urn [%disc ~]])
|
|
|
|
|
(copy fog bow sog)
|
|
|
|
|
=^ uses dock (cool uses.does.u.bore)
|
|
|
|
|
=^ dote dock
|
|
|
|
|
?~ flaw
|
|
|
|
|
(mend %dote ~ [%jmp barn (boil uses)])
|
|
|
|
|
(mend %dote ~ [%cal barn (boil uses) rut.u.flaw rot.u.flaw])
|
|
|
|
|
=^ [ash=plow dot=berm] dock (whop uses dote)
|
|
|
|
|
=^ [bow=plow urn=berm] dock
|
|
|
|
|
$(fawn summ, axle (peg axle 6), flow [%moat dot ash])
|
|
|
|
|
?: safe [[bow urn] dock]
|
|
|
|
|
=^ [fog=plow sog=berm] dock
|
|
|
|
|
$(fawn form, axle (peg axle 14), flow [%mote urn [%disc ~]])
|
|
|
|
|
(copy fog bow sog)
|
|
|
|
|
++ cool :: generate SSAs for the call side of a use list
|
|
|
|
|
|= use=(list [@ @ ?])
|
|
|
|
|
^- [(list [@ @ ?]) _dock]
|
|
|
|
|
?~ use ~
|
|
|
|
|
=^ pan dock wean
|
|
|
|
|
[[-.i.use pan +>.i.use] $(use t.use)]
|
|
|
|
|
++ boil :: ssas from a use list
|
|
|
|
|
|= use=(list [@ @ ?])
|
|
|
|
|
^- (list @)
|
|
|
|
|
(turn use |=([@ @ ?] ->+)))
|
|
|
|
|
++ whop :: turn a use list into a plow
|
|
|
|
|
|= [use=(list [@ @ ?]) her=berm]
|
|
|
|
|
^- [[plow berm] _dock]
|
|
|
|
|
?~ [[*plow her] dock]
|
|
|
|
|
=^ [low=plow him=berm] dock $(use t.use)
|
|
|
|
|
=/ ace (take -.i.use [%tine +<.i.use] +>.i.use)
|
|
|
|
|
?~ ace fail
|
|
|
|
|
(copy low u.ace him)
|
2022-11-30 08:59:04 +03:00
|
|
|
++ bang
|
|
|
|
|
|= non=*
|
|
|
|
|
^- [[hat=plow her=berm] _dock]
|
|
|
|
|
?- flow
|
|
|
|
|
[%pond ~]
|
|
|
|
|
=^ ret dock wean
|
|
|
|
|
=^ her dock (mend %rime ~[[%imm +.fawn ret]] [%don ret])
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%disc ~] her]
|
|
|
|
|
::
|
|
|
|
|
[%rift *]
|
|
|
|
|
?: =(0 +.fawn) [[[%disc ~] troo.flow] dock]
|
|
|
|
|
?: =(1 +.fawn) [[[%disc ~] fals.flow] dock]
|
|
|
|
|
:: XX maybe we should assert that SKA should have caught this?
|
|
|
|
|
=^ hole dock bomb
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%disc ~] hole]
|
|
|
|
|
::
|
|
|
|
|
[%moat *]
|
|
|
|
|
=/ what what.flow
|
|
|
|
|
=/ mitt
|
|
|
|
|
|- ^- (unit (list bran))
|
|
|
|
|
?- what
|
|
|
|
|
[%disc ~]
|
|
|
|
|
(some ~)
|
2022-09-15 05:26:05 +03:00
|
|
|
::
|
2022-11-30 08:59:04 +03:00
|
|
|
[%tine @]
|
|
|
|
|
(some ~[[%imm non +.what]])
|
2022-09-15 05:26:05 +03:00
|
|
|
::
|
2022-11-30 08:59:04 +03:00
|
|
|
[%fork *]
|
|
|
|
|
?@ non
|
|
|
|
|
?: safe.what
|
|
|
|
|
~| %safe-axis-atom !!
|
|
|
|
|
~
|
|
|
|
|
(clap $(what left.what, non -.non) $(what rite.what, non +.non) weld)
|
|
|
|
|
==
|
|
|
|
|
?~ mitt
|
|
|
|
|
=^ hole dock bomb
|
2022-11-30 05:44:51 +03:00
|
|
|
:_ dock
|
|
|
|
|
[[%disc ~] hole]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ rock dock (mend %toil u.mitt [%hop wher.flow])
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%disc ~] rock]
|
|
|
|
|
==
|
2022-12-02 08:13:37 +03:00
|
|
|
++ peel :: split a define among a plow's worth of uses
|
|
|
|
|
|= [=plow =berm]
|
|
|
|
|
^- [[use=@ her=berm] _dock]
|
|
|
|
|
=+
|
|
|
|
|
|- ^- [[fine=(unit @) load=(list bran)] dock=_dock]
|
|
|
|
|
?- -.plow
|
|
|
|
|
%tine [[`+.plow ~] dock]
|
|
|
|
|
%disc [[~ ~] dock]
|
|
|
|
|
%fork
|
|
|
|
|
=^ [file=(unit @) loaf=(list bran)] dock $(plow left.plow)
|
|
|
|
|
=^ [fire=(unit @) road=(list bran)] dock $(plow rite.plow)
|
|
|
|
|
?~ file
|
|
|
|
|
?~ fire
|
|
|
|
|
[[~ ~] dock]
|
|
|
|
|
[[fire road] dock]
|
|
|
|
|
?~ fire
|
|
|
|
|
[[file loaf] dock]
|
|
|
|
|
=^ fell dock wean
|
|
|
|
|
?: safe.plow
|
|
|
|
|
:_ dock
|
|
|
|
|
:- `fell
|
|
|
|
|
(weld ~[[%hud fell u.file] [%tul fell u.fire]] (weld loaf road))]
|
|
|
|
|
:_ dock
|
|
|
|
|
:- `fell
|
|
|
|
|
(weld ~[[%hed fell u.file] [%tal fell u.fire]] (weld loaf road))]
|
|
|
|
|
==
|
|
|
|
|
?~ use
|
|
|
|
|
=^ crap dock wean :: no uses in the plow, so just make a trash register for the result and return
|
|
|
|
|
[[crap berm] dock]
|
|
|
|
|
?~ load :: no loads necessary, just return the register
|
|
|
|
|
[[u.use berm] dock]
|
|
|
|
|
=^ her dock (mend %peel load [%hop berm]) :: loads necessary, add those to the dock and return
|
|
|
|
|
[[u.use her] dock]
|
2022-11-30 08:59:04 +03:00
|
|
|
++ take :: axis
|
|
|
|
|
|= [sax=@ tow=plow row=?] :: axis, destination, safety
|
|
|
|
|
^- (unit plow) :: nullary case = crash
|
|
|
|
|
?: =(0 sax) ~
|
|
|
|
|
%- some
|
|
|
|
|
|- ^- plow
|
|
|
|
|
?: =(1 sax) tow
|
|
|
|
|
?- (cap sax)
|
|
|
|
|
%2 [%fork $(sax (mas sax)) [%disc ~] row]
|
|
|
|
|
%3 [%fork [%disc ~] $(sax (mas sax)) row]
|
|
|
|
|
==
|
|
|
|
|
++ milk :: local label
|
|
|
|
|
|= gen=@
|
|
|
|
|
^- berm
|
|
|
|
|
~! next
|
|
|
|
|
[sub.next for.next axle gen]
|
|
|
|
|
++ wean :: fresh ssa
|
|
|
|
|
^- [@ _dock]
|
|
|
|
|
[lamb.dock dock(lamb .+(lamb.dock))]
|
|
|
|
|
++ copy :: replicate values to two destinations
|
|
|
|
|
|= [hat=plow bat=plow her=berm]
|
|
|
|
|
^- [[hat=plow her=berm] _dock]
|
|
|
|
|
=^ [tog=plow moot=(list bran)] dock
|
2022-11-30 05:44:51 +03:00
|
|
|
|-
|
2022-11-30 08:59:04 +03:00
|
|
|
^- [[tog=plow moot=(list bran)] _dock]
|
|
|
|
|
?: ?=([%disc ~] hat) [[bat ~] dock]
|
|
|
|
|
?: ?=([%disc ~] bat) [[hat ~] dock]
|
|
|
|
|
?- hat
|
|
|
|
|
[%tine @]
|
|
|
|
|
?- bat
|
2022-11-30 05:44:51 +03:00
|
|
|
[%tine @]
|
2022-11-30 08:59:04 +03:00
|
|
|
?: =(+.hat +.bat)
|
|
|
|
|
[[hat ~] dock]
|
|
|
|
|
[[hat ~[[%mov +.hat +.bat]]] dock]
|
2022-11-30 05:44:51 +03:00
|
|
|
::
|
|
|
|
|
[%fork *]
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ one dock wean
|
|
|
|
|
=^ two dock wean
|
|
|
|
|
=^ [hog=plow hoot=(list bran)] dock
|
|
|
|
|
$(hat [%tine one], bat left.bat)
|
|
|
|
|
=^ [log=plow loot=(list bran)] dock
|
|
|
|
|
$(hat [%tine two], bat rite.bat)
|
|
|
|
|
:_ dock
|
|
|
|
|
:- ^- plow
|
|
|
|
|
[%fork hog log safe.bat]
|
2022-12-02 08:13:37 +03:00
|
|
|
[[%con one two +.hat] (weld hoot loot)]
|
2022-11-30 05:44:51 +03:00
|
|
|
==
|
|
|
|
|
::
|
2022-11-30 08:59:04 +03:00
|
|
|
[%fork *]
|
|
|
|
|
?- bat
|
2022-11-30 05:44:51 +03:00
|
|
|
[%tine @]
|
|
|
|
|
=^ one dock wean
|
|
|
|
|
=^ two dock wean
|
2022-11-30 08:59:04 +03:00
|
|
|
=^ [hog=plow hoot=(list bran)] dock
|
|
|
|
|
$(hat left.hat, bat [%tine one])
|
|
|
|
|
=^ [log=plow loot=(list bran)] dock
|
|
|
|
|
$(hat rite.hat, bat [%tine two])
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%fork hog log safe.hat] [%con one two +.bat] (weld hoot loot)]
|
|
|
|
|
::
|
|
|
|
|
[%fork *]
|
|
|
|
|
=^ [hog=plow hoot=(list bran)] dock $(hat left.hat, bat left.bat)
|
|
|
|
|
=^ [log=plow loot=(list bran)] dock $(hat rite.hat, bat rite.bat)
|
2022-11-30 05:44:51 +03:00
|
|
|
:_ dock
|
2022-11-30 08:59:04 +03:00
|
|
|
[[%fork hog log ?&(safe.hat safe.bat)] (weld hoot loot)]
|
2022-11-30 05:44:51 +03:00
|
|
|
==
|
|
|
|
|
==
|
2022-11-30 08:59:04 +03:00
|
|
|
=/ blab (milk %copy)
|
|
|
|
|
:_ dock(lake (~(put by lake.dock) `blab [moot %hop her]))
|
|
|
|
|
[tog blab]
|
|
|
|
|
++ twin :: split sans from flow
|
|
|
|
|
^- [[plow plow berm] _dock]
|
|
|
|
|
?- flow
|
|
|
|
|
[%rift *]
|
|
|
|
|
=^ hole dock bomb
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%disc ~] [%disc ~] hole]
|
|
|
|
|
::
|
|
|
|
|
[%pond ~]
|
|
|
|
|
=^ one dock wean
|
|
|
|
|
=^ two dock wean
|
|
|
|
|
=^ ret dock wean
|
|
|
|
|
=^ her dock (mend %taco ~[[%con one two ret]] [%don ret])
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%tine one] [%tine two] her]
|
|
|
|
|
::
|
|
|
|
|
[%moat *]
|
|
|
|
|
?- what.flow
|
|
|
|
|
[%fork *]
|
|
|
|
|
:_ dock
|
|
|
|
|
[left.what.flow rite.what.flow wher.flow]
|
|
|
|
|
::
|
|
|
|
|
[%disc ~]
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%disc ~] [%disc ~] wher.flow]
|
|
|
|
|
::
|
|
|
|
|
[%tine @]
|
|
|
|
|
=^ one dock wean
|
|
|
|
|
=^ two dock wean
|
|
|
|
|
=^ her dock
|
|
|
|
|
(mend %cons ~[[%con one two +.what.flow]] [%hop wher.flow])
|
|
|
|
|
:_ dock
|
|
|
|
|
[[%tine one] [%tine two] her]
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
++ mend
|
|
|
|
|
|= [gen=@ =lock]
|
|
|
|
|
^- [berm _dock]
|
|
|
|
|
=/ curb (milk gen)
|
|
|
|
|
:- curb
|
|
|
|
|
dock(lake (~(put by lake.dock) `curb lock))
|
|
|
|
|
++ bomb
|
|
|
|
|
^- [berm _dock]
|
|
|
|
|
(mend %boom ~ [%bom ~])
|
|
|
|
|
--
|
2022-09-15 02:51:52 +03:00
|
|
|
--
|
