2022-11-30 05:44:51 +03:00
|
|
|
/- *sock
|
|
|
|
|
/- *gene
|
2022-11-30 08:59:04 +03:00
|
|
|
/+ ska
|
2022-12-16 07:48:46 +03:00
|
|
|
=| burg=town
|
2022-09-15 02:51:52 +03:00
|
|
|
|%
|
2022-12-16 07:48:46 +03:00
|
|
|
++ mill :: XX todo observe crashes
|
|
|
|
|
=* this .
|
|
|
|
|
|= [ject=* gist=barn]
|
|
|
|
|
^- [* _this]
|
|
|
|
|
=| quay=(list [curb=berm sign=(map @ *) vale=@])
|
|
|
|
|
=^ [goes=lake uses=pool] this (belt gist)
|
|
|
|
|
=/ sign (dole uses ject)
|
|
|
|
|
=/ reed ~| %miss-entry (~(got by goes) ~)
|
|
|
|
|
|^ ^- [* _this]
|
|
|
|
|
?~ body.reed
|
|
|
|
|
?- -.bend.reed
|
|
|
|
|
%clq
|
|
|
|
|
?@ (loan +<.bend.reed)
|
|
|
|
|
(lump +>+.bend.reed)
|
|
|
|
|
(lump +>-.bend.reed)
|
|
|
|
|
::
|
|
|
|
|
%eqq
|
|
|
|
|
~! +<.bend.reed
|
|
|
|
|
~! +>-.bend.reed
|
|
|
|
|
?: =((loan +<.bend.reed) (loan +>-.bend.reed))
|
|
|
|
|
(lump +>+<.bend.reed)
|
|
|
|
|
(lump +>+>.bend.reed)
|
|
|
|
|
::
|
|
|
|
|
%brn
|
|
|
|
|
?: =(0 (loan +<.bend.reed))
|
|
|
|
|
(lump +>-.bend.reed)
|
|
|
|
|
?: =(1 (loan +<.bend.reed))
|
|
|
|
|
(lump +>+.bend.reed)
|
|
|
|
|
~| %bad-bean !!
|
|
|
|
|
::
|
|
|
|
|
%hop (lump +.bend.reed)
|
|
|
|
|
%lnk
|
|
|
|
|
=^ [goop=lake ruse=pool] this
|
|
|
|
|
(belt [%toss ~] (loan +<.bend.reed))
|
|
|
|
|
%= $
|
|
|
|
|
quay [[+>+>.bend.reed sign +>+<.bend.reed] quay]
|
|
|
|
|
goes goop
|
|
|
|
|
sign (dole ruse (loan +>-.bend.reed))
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%cal
|
|
|
|
|
=/ [goop=lake ruse=pool] does:(~(got by land.burg) +<.bend.reed)
|
|
|
|
|
%= $
|
|
|
|
|
quay [[+>+>.bend.reed sign +>+<.bend.reed] quay]
|
|
|
|
|
goes goop
|
|
|
|
|
sign (yoke +>-.bend.reed ruse)
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%bec ~| %bec-slip !!
|
|
|
|
|
%lnt
|
|
|
|
|
=^ [goop=lake ruse=pool] this
|
|
|
|
|
(belt [%toss ~] (loan +<.bend.reed))
|
|
|
|
|
~! +>.bend.reed
|
|
|
|
|
%= $
|
|
|
|
|
goes goop
|
|
|
|
|
sign (dole ruse (loan +>.bend.reed))
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%jmp
|
|
|
|
|
=/ [goop=lake ruse=pool] does:(~(got by land.burg) +<.bend.reed)
|
|
|
|
|
%= $
|
|
|
|
|
goes goop
|
|
|
|
|
sign (yoke +>.bend.reed ruse)
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%eye ~| %eye-slip !!
|
|
|
|
|
%spy ~| %fbi !!
|
|
|
|
|
%hnt ?>((~(has by sign) +<.bend.reed) (lump +>.bend.reed))
|
|
|
|
|
%don
|
|
|
|
|
?~ quay [(loan +.bend.reed) this]
|
|
|
|
|
=/ rail [sub for]:curb.i.quay
|
|
|
|
|
=/ [goop=lake ruse=pool] does:(~(got by land.burg) rail)
|
|
|
|
|
%= $
|
|
|
|
|
sign (~(put by sign.i.quay) vale.i.quay (loan +.bend.reed))
|
|
|
|
|
goes goop
|
|
|
|
|
reed ~|(%miss-entry (~(got by goes) `curb.i.quay))
|
|
|
|
|
quay t.quay
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
%bom
|
|
|
|
|
~| %boom !!
|
|
|
|
|
==
|
|
|
|
|
%= $
|
|
|
|
|
body.reed t.body.reed
|
|
|
|
|
sign
|
|
|
|
|
%- ~(put by sign)
|
|
|
|
|
?- -.i.body.reed
|
|
|
|
|
%imm [+> +<]:i.body.reed
|
|
|
|
|
%mov
|
|
|
|
|
:- +>.i.body.reed
|
|
|
|
|
(loan +<.i.body.reed)
|
|
|
|
|
::
|
|
|
|
|
%inc
|
|
|
|
|
:- +>.i.body.reed
|
|
|
|
|
=/ bink (loan +<.i.body.reed)
|
|
|
|
|
?> ?=(@ bink)
|
|
|
|
|
.+(bink)
|
|
|
|
|
::
|
|
|
|
|
%unc
|
|
|
|
|
:- +>.i.body.reed
|
|
|
|
|
=/ bink (loan +<.i.body.reed)
|
|
|
|
|
?> ?=(@ bink)
|
|
|
|
|
.+(bink)
|
|
|
|
|
::
|
|
|
|
|
%con
|
|
|
|
|
:- +>+.i.body.reed
|
|
|
|
|
:- (loan +<.i.body.reed)
|
|
|
|
|
(loan +>-.i.body.reed)
|
|
|
|
|
::
|
|
|
|
|
%hed
|
|
|
|
|
=/ cash (loan +<.i.body.reed)
|
|
|
|
|
?> ?=(^ cash)
|
|
|
|
|
[+>.i.body.reed -.cash]
|
|
|
|
|
::
|
|
|
|
|
%hud
|
|
|
|
|
=/ cash (loan +<.i.body.reed)
|
|
|
|
|
?> ?=(^ cash)
|
|
|
|
|
[+>.i.body.reed -.cash]
|
|
|
|
|
::
|
|
|
|
|
%tal
|
|
|
|
|
=/ cash (loan +<.i.body.reed)
|
|
|
|
|
?> ?=(^ cash)
|
|
|
|
|
[+>.i.body.reed +.cash]
|
|
|
|
|
::
|
|
|
|
|
%tul
|
|
|
|
|
=/ cash (loan +<.i.body.reed)
|
|
|
|
|
?> ?=(^ cash)
|
|
|
|
|
[+>.i.body.reed +.cash]
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
++ loan
|
|
|
|
|
|= @
|
|
|
|
|
~| %loan-miss (~(got by sign) +<)
|
|
|
|
|
++ lump
|
|
|
|
|
|= berm
|
|
|
|
|
^$(reed ~|(%miss-entry (~(got by goes) `+<)))
|
|
|
|
|
++ yoke
|
|
|
|
|
|= [ox=(list @) lo=pool]
|
|
|
|
|
=| link=(map @ *)
|
|
|
|
|
|- ^- (map @ *)
|
|
|
|
|
?~ ox
|
|
|
|
|
?~ lo link
|
|
|
|
|
~| %yoke-match !!
|
|
|
|
|
?~ lo
|
|
|
|
|
~| %yoke-match !!
|
|
|
|
|
$(link (~(put by link) ssa.i.lo (loan i.ox)), ox t.ox, lo t.lo)
|
|
|
|
|
--
|
|
|
|
|
++ dole
|
|
|
|
|
|= [=pool ject=*]
|
|
|
|
|
%- malt
|
|
|
|
|
%+ turn pool
|
|
|
|
|
|= [axe=@ ssa=@ ?]
|
|
|
|
|
[ssa .*(ject [0 axe])]
|
|
|
|
|
++ belt
|
|
|
|
|
=* this .
|
|
|
|
|
|= gist=barn
|
|
|
|
|
^- [rice _this]
|
|
|
|
|
=. this +:(reap gist)
|
|
|
|
|
does:(~(got by burg) gist)
|
|
|
|
|
++ reap
|
|
|
|
|
=* this .
|
|
|
|
|
|= =barn
|
|
|
|
|
^- [boot _this]
|
|
|
|
|
=/ [=boot =farm] (plot barn)
|
|
|
|
|
=^ work this (till farm)
|
|
|
|
|
:- boot
|
|
|
|
|
(weed:(rake:this work) work)
|
2022-12-02 08:13:37 +03:00
|
|
|
++ plot :: subject knowledge analysis, emitting nock-- or "nomm"
|
2022-12-16 07:48:46 +03:00
|
|
|
=* this .
|
2022-11-30 05:44:51 +03:00
|
|
|
=| ski=farm
|
|
|
|
|
|= ent=barn
|
|
|
|
|
^- [boot farm]
|
2022-12-16 07:48:46 +03:00
|
|
|
=/ bot (~(get by land.burg) ent)
|
|
|
|
|
?. ?=(~ bot) [says.u.bot ski] :: no need to re-plot a barn we already know
|
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
|
2022-12-16 07:48:46 +03:00
|
|
|
=* this .
|
2022-11-30 05:44:51 +03:00
|
|
|
|= =farm
|
2022-12-16 07:48:46 +03:00
|
|
|
^- [(list barn) _this]
|
|
|
|
|
=/ work (flop (skip wood.farm ~(has by land.burg)))
|
|
|
|
|
:- work
|
|
|
|
|
|- ^- _this
|
|
|
|
|
?~ work this
|
2022-11-30 08:59:04 +03:00
|
|
|
=/ 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])
|
2022-12-02 21:31:34 +03:00
|
|
|
=| safe=? :: XX state maximal safe axes, as this will overly pessimize
|
|
|
|
|
=/ bolt=@ 1
|
|
|
|
|
|- ^- (list [@ @ ?])
|
2022-11-30 08:59:04 +03:00
|
|
|
?- -.hat
|
2022-12-02 21:31:34 +03:00
|
|
|
%tine [[bolt +.hat safe]]~
|
|
|
|
|
%disc ~
|
|
|
|
|
%fork
|
|
|
|
|
%+ weld
|
|
|
|
|
$(hat left.hat, bolt (peg bolt 2), safe ?&(safe safe.hat))
|
|
|
|
|
$(hat rite.hat, bolt (peg bolt 3), safe ?&(safe safe.hat))
|
2022-11-30 08:59:04 +03:00
|
|
|
==
|
|
|
|
|
$(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
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ dink dock (mend %dink ~[[%inc meal left]] [%hop wher.flow])
|
|
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat dink [%tine meal]])
|
2022-12-02 08:13:37 +03:00
|
|
|
::
|
|
|
|
|
%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
|
2022-12-02 21:31:34 +03:00
|
|
|
$(fawn +<.fawn, axle (peg axle 6), flow [%moat rail [%tine load]])
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ [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])
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ [hut=plow mud=berm] dock $(fawn +>-.fawn, axle (peg axle 14), flow [%moat him out])
|
2022-12-02 08:13:37 +03:00
|
|
|
(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
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ mood dock (mend %mood ~ [%brn hide [troo fals]:flow])
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ [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])
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ [hut=plow mud=berm] dock $(fawn +>-.fawn, axle (peg axle 14), flow [%moat him out])
|
2022-12-02 08:13:37 +03:00
|
|
|
(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 *]
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ [hat=plow him=berm] dock $(fawn +>-.fawn, axle (peg axle 7))
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ pint dock wean
|
|
|
|
|
=^ dint dock wean
|
|
|
|
|
=^ aint dock wean
|
|
|
|
|
=^ tint dock (mend %tint ~[[%imm +<-.fawn pint] [%con pint dint aint]] [%hnt aint him])
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ [hit=plow his=berm] dock $(fawn +<+.fawn, axle (peg axle 13), flow [%moat tint [%tine dint]])
|
2022-12-02 08:13:37 +03:00
|
|
|
(copy hat hit his)
|
|
|
|
|
::
|
|
|
|
|
[%twe *]
|
|
|
|
|
?- -.flow
|
|
|
|
|
%moat
|
|
|
|
|
=^ [use=@ her=berm] dock (peel what.flow wher.flow)
|
|
|
|
|
=^ fens dock wean
|
|
|
|
|
=^ phat dock wean
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ cope dock (mend %cope ~ [%spy fens phat use her])
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ [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
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ bars dock (mend %bars ~ [%brn sift [troo fals]:flow])
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ fens dock wean
|
|
|
|
|
=^ phat dock wean
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ cope dock (mend %cope ~ [%spy fens phat sift bars])
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ [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
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ sear dock (mend %sear ~ [%don sped])
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ fens dock wean
|
|
|
|
|
=^ phat dock wean
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ cope dock (mend %cope ~ [%spy fens phat sped sear])
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ [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
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ ruck dock $(axe (mas axe), bit [%tine plat])
|
2022-12-02 08:13:37 +03:00
|
|
|
:_ 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
|
2022-12-02 21:31:34 +03:00
|
|
|
$(fawn sums, axle (peg axle 6), flow [%moat coil [%tine lash]])
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ [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
|
2022-12-02 21:31:34 +03:00
|
|
|
$(fawn sums, axle (peg axle 6), flow [%moat dote [%tine lash]])
|
2022-12-02 08:13:37 +03:00
|
|
|
?: safe [[bow urn] dock]
|
|
|
|
|
=^ [fog=plow sog=berm] dock
|
2022-12-02 21:31:34 +03:00
|
|
|
$(fawn form, axle (peg axle 14), flow [%moat urn [%disc ~]])
|
2022-12-02 08:13:37 +03:00
|
|
|
(copy fog bow sog)
|
|
|
|
|
=^ uses dock (cool uses.does.u.bore)
|
|
|
|
|
=^ dote dock
|
|
|
|
|
?~ flaw
|
2022-12-02 21:31:34 +03:00
|
|
|
(mend %dote ~ [%jmp bale (boil uses)])
|
|
|
|
|
(mend %dote ~ [%cal bale (boil uses) rut.u.flaw rot.u.flaw])
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ [ash=plow dot=berm] dock (whop uses dote)
|
|
|
|
|
=^ [bow=plow urn=berm] dock
|
2022-12-02 21:31:34 +03:00
|
|
|
$(fawn sums, axle (peg axle 6), flow [%moat dot ash])
|
2022-12-02 08:13:37 +03:00
|
|
|
?: safe [[bow urn] dock]
|
|
|
|
|
=^ [fog=plow sog=berm] dock
|
2022-12-02 21:31:34 +03:00
|
|
|
$(fawn form, axle (peg axle 14), flow [%moat urn [%disc ~]])
|
2022-12-02 08:13:37 +03:00
|
|
|
(copy fog bow sog)
|
|
|
|
|
++ cool :: generate SSAs for the call side of a use list
|
|
|
|
|
|= use=(list [@ @ ?])
|
|
|
|
|
^- [(list [@ @ ?]) _dock]
|
2022-12-02 21:31:34 +03:00
|
|
|
?~ use [~ dock]
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ pan dock wean
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ lid dock $(use t.use)
|
|
|
|
|
:_ dock
|
|
|
|
|
[[-.i.use pan +>.i.use] lid]
|
2022-12-02 08:13:37 +03:00
|
|
|
++ boil :: ssas from a use list
|
|
|
|
|
|= use=(list [@ @ ?])
|
|
|
|
|
^- (list @)
|
2022-12-02 21:31:34 +03:00
|
|
|
(turn use |=([@ ssa=@ ?] ssa))
|
2022-12-02 08:13:37 +03:00
|
|
|
++ whop :: turn a use list into a plow
|
|
|
|
|
|= [use=(list [@ @ ?]) her=berm]
|
|
|
|
|
^- [[plow berm] _dock]
|
2022-12-02 21:31:34 +03:00
|
|
|
?~ use [[*plow her] dock]
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ [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
|
2022-12-02 21:31:34 +03:00
|
|
|
|= [mole=plow hill=berm]
|
2022-12-02 08:13:37 +03:00
|
|
|
^- [[use=@ her=berm] _dock]
|
|
|
|
|
=+
|
|
|
|
|
|- ^- [[fine=(unit @) load=(list bran)] dock=_dock]
|
2022-12-02 21:31:34 +03:00
|
|
|
?- -.mole
|
|
|
|
|
%tine [[`+.mole ~] dock]
|
2022-12-02 08:13:37 +03:00
|
|
|
%disc [[~ ~] dock]
|
|
|
|
|
%fork
|
2022-12-02 21:31:34 +03:00
|
|
|
=^ [file=(unit @) loaf=(list bran)] dock $(mole left.mole)
|
|
|
|
|
=^ [fire=(unit @) road=(list bran)] dock $(mole rite.mole)
|
2022-12-02 08:13:37 +03:00
|
|
|
?~ file
|
|
|
|
|
?~ fire
|
|
|
|
|
[[~ ~] dock]
|
|
|
|
|
[[fire road] dock]
|
|
|
|
|
?~ fire
|
|
|
|
|
[[file loaf] dock]
|
|
|
|
|
=^ fell dock wean
|
2022-12-02 21:31:34 +03:00
|
|
|
?: safe.mole
|
2022-12-02 08:13:37 +03:00
|
|
|
:_ dock
|
|
|
|
|
:- `fell
|
2022-12-02 21:31:34 +03:00
|
|
|
[[%hud fell u.file] [%tul fell u.fire] (weld loaf road)]
|
2022-12-02 08:13:37 +03:00
|
|
|
:_ dock
|
|
|
|
|
:- `fell
|
2022-12-02 21:31:34 +03:00
|
|
|
[[%hed fell u.file] [%tal fell u.fire] (weld loaf road)]
|
2022-12-02 08:13:37 +03:00
|
|
|
==
|
2022-12-02 21:31:34 +03:00
|
|
|
?~ fine
|
2022-12-02 08:13:37 +03:00
|
|
|
=^ crap dock wean :: no uses in the plow, so just make a trash register for the result and return
|
2022-12-02 21:31:34 +03:00
|
|
|
[[crap hill] dock]
|
2022-12-02 08:13:37 +03:00
|
|
|
?~ load :: no loads necessary, just return the register
|
2022-12-02 21:31:34 +03:00
|
|
|
[[u.fine hill] dock]
|
|
|
|
|
=^ her dock (mend %peel load [%hop hill]) :: loads necessary, add those to the dock and return
|
|
|
|
|
[[u.fine 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-12-16 07:48:46 +03:00
|
|
|
++ rake :: clean up unused basic blocks, and rewrite bec/eye into cal/jmp
|
|
|
|
|
=* this .
|
|
|
|
|
|= work=(list barn)
|
|
|
|
|
^- _this
|
|
|
|
|
?~ work this
|
|
|
|
|
%= $
|
|
|
|
|
burg
|
|
|
|
|
=+ ~| %barn-miss (~(got by land.burg) i.work)
|
|
|
|
|
^- town
|
|
|
|
|
=| loch=lake
|
|
|
|
|
=| sigh=(map @ $%([%mov @] [%con @] [%rug ~]))
|
|
|
|
|
=/ tack=[(list (unit berm)) (list (unit berm))] [[~]~ ~] :: label queue
|
|
|
|
|
|- ^- town :: loop over basic blocks using a queue
|
|
|
|
|
?~ -.tack
|
|
|
|
|
?~ +.tack
|
|
|
|
|
%= burg
|
|
|
|
|
land
|
|
|
|
|
(~(put by land.burg) i.work [[loch uses.does] says])
|
|
|
|
|
==
|
|
|
|
|
$(tack [(flop +.tack) ~])
|
|
|
|
|
=/ hock ~| %miss-berm (~(got by goes.does) i.-.tack)
|
|
|
|
|
=/ bock body.hock
|
|
|
|
|
|^ ^- town :: loop over instructions in a basic block
|
|
|
|
|
?~ body.hock
|
|
|
|
|
?: ?=(%bec -.bend.hock)
|
|
|
|
|
(rend [+< +>- `+>+]:bend.hock)
|
|
|
|
|
?: ?=(%eye -.bend.hock)
|
|
|
|
|
(rend [+< +>- ~]:bend.bock)
|
|
|
|
|
=. loch (~(put by loch) i.-.tack [bock bend.hock])
|
|
|
|
|
?- bend.hock
|
|
|
|
|
[%clq *]
|
|
|
|
|
^$(-.tack t.-.tack, +.tack [+>-.bend.hock +>+.bend.hock +.tack])
|
|
|
|
|
::
|
|
|
|
|
[%eqq *]
|
|
|
|
|
^$(-.tack t.-.tack, +.tack [+>+<.bend.hock +>+>.bend.hock +.tack])
|
|
|
|
|
::
|
|
|
|
|
[%brn *]
|
|
|
|
|
^$(-.tack t.-.tack, +.tack [+>-.bend.hock +>+.bend.hock +.tack])
|
|
|
|
|
::
|
|
|
|
|
[%hop *]
|
|
|
|
|
^$(-.tack t.-.tack, +.tack [+.bend.hock +.tack])
|
|
|
|
|
::
|
|
|
|
|
[%lnk *]
|
|
|
|
|
%= ^$
|
|
|
|
|
sigh (~(put by sigh) +>+<.bend.bock [%rug ~])
|
|
|
|
|
-.tack t.-.tack
|
|
|
|
|
+.tack [+>+>.bend.hock +.tack]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
[%cal *]
|
|
|
|
|
%= ^$
|
|
|
|
|
sigh (~(put by sigh) +>+<.bend.hock [%rug ~])
|
|
|
|
|
-.tack t.-.tack
|
|
|
|
|
+.tack [+>+>.bend.hock +.tack]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
[%lnt *] ^$(-.tack t.-.tack)
|
|
|
|
|
[%jmp *] ^$(-.tack t.-.tack)
|
|
|
|
|
[%spy *]
|
|
|
|
|
%= ^$
|
|
|
|
|
sigh (~(put by sigh) +>+<.bend.hock [%rug ~])
|
|
|
|
|
-.tack t.-.tack
|
|
|
|
|
+.tack [+>+>.bend.hock +.tack]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
[%hnt *]
|
|
|
|
|
^$(-.tack t.-.tack, +.tack [+>.bend.hock +.tack])
|
|
|
|
|
::
|
|
|
|
|
[%don *] ^$(-.tack t.-.tack)
|
|
|
|
|
[%bom *] ^$(-.tack t.-.tack)
|
|
|
|
|
==
|
|
|
|
|
?- i.body.hock
|
|
|
|
|
[%imm *] :: XX we should split immediates too
|
|
|
|
|
$(body.hock t.body.hock, sigh (~(put by sigh) +>.i.body.hock [%rug ~]))
|
|
|
|
|
::
|
|
|
|
|
[%mov *]
|
|
|
|
|
%= $
|
|
|
|
|
body.hock t.body.hock
|
|
|
|
|
sigh (~(put by sigh) +>.i.body.hock [%mov +<.i.body.hock])
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
[%inc *]
|
|
|
|
|
$(body.hock t.body.hock, sigh (~(put by sigh) +>.i.body.hock [%rug ~]))
|
|
|
|
|
::
|
|
|
|
|
[%unc *]
|
|
|
|
|
$(body.hock t.body.hock, sigh (~(put by sigh) +>.i.body.hock [%rug ~]))
|
|
|
|
|
::
|
|
|
|
|
[%con *]
|
|
|
|
|
%= $
|
|
|
|
|
body.hock t.body.hock
|
|
|
|
|
sigh
|
|
|
|
|
%+ ~(put by sigh)
|
|
|
|
|
+>+.i.body.hock
|
|
|
|
|
[%con +<.body.hock +>-.i.body.hock]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
[%hed @ @]
|
|
|
|
|
$(body.hock t.body.hock, sigh (~(put by sigh) +>.i.body.bock [%rug ~]))
|
|
|
|
|
::
|
|
|
|
|
[%hud @ @]
|
|
|
|
|
$(body.hock t.body.hock, sigh (~(put by sigh) +>.i.body.bock [%rug ~]))
|
|
|
|
|
::
|
|
|
|
|
[%tal @ @]
|
|
|
|
|
$(body.hock t.body.hock, sigh (~(put by sigh) +>.i.body.bock [%rug ~]))
|
|
|
|
|
::
|
|
|
|
|
[%tul @ @]
|
|
|
|
|
$(body.hock t.body.hock, sigh (~(put by sigh) +>.i.body.bock [%rug ~]))
|
|
|
|
|
==
|
|
|
|
|
++ rend :: make register assignments to translate a bec/eye into a cal/jmp.
|
|
|
|
|
|= [=barn tart=@ poem=(unit [@ berm])]
|
|
|
|
|
=/ uses ~| %uses-miss uses:does:(~(got by land.burg) barn)
|
|
|
|
|
^- town
|
|
|
|
|
=-
|
|
|
|
|
=. burg fort
|
|
|
|
|
=? sigh ?=([~ *] poem) (~(put by sigh) -.u.poem [%rug ~])
|
|
|
|
|
=/ term
|
|
|
|
|
?~ poem
|
|
|
|
|
[%jmp barn bits]
|
|
|
|
|
[%cal barn bits u.poem]
|
|
|
|
|
%= ^^$
|
|
|
|
|
loch
|
|
|
|
|
(~(put by loch) i.-.tack [(weld bock bins) term])
|
|
|
|
|
::
|
|
|
|
|
-.tack t.-.tack
|
|
|
|
|
==
|
|
|
|
|
=/ gasp :: turn the sigh register-relating map into a register-for-axis map
|
|
|
|
|
=/ axe 1
|
|
|
|
|
|- ^- (map @ @)
|
|
|
|
|
=/ waft (~(put by *(map @ @)) axe tart)
|
|
|
|
|
=/ puff (~(gut by sigh) tart [%rug ~])
|
|
|
|
|
?- puff
|
|
|
|
|
[%rug ~] waft
|
|
|
|
|
[%mov *] (~(uni by waft) $(tart +.puff))
|
|
|
|
|
[%con *]
|
|
|
|
|
~! axe
|
|
|
|
|
=/ left $(tart +<.puff, axe (peg axe 2))
|
|
|
|
|
%- ~(uni by waft)
|
|
|
|
|
%- ~(uni by left)
|
|
|
|
|
$(tart +>.puff, axe (peg axe 3))
|
|
|
|
|
==
|
|
|
|
|
=| bits=(list @)
|
|
|
|
|
=| bins=(list bran)
|
|
|
|
|
|- ^- [bits=(list @) bins=(list bran) fort=town]
|
|
|
|
|
?~ uses [(flop bits) bins burg]
|
|
|
|
|
=/ sour -.i.uses
|
|
|
|
|
=/ axle 1
|
|
|
|
|
=/ vale ~| %vale-miss (~(got by gasp) 1)
|
|
|
|
|
|- ^- [bits=(list @) bins=(list bran) fort=town]
|
|
|
|
|
?: =(1 sour)
|
|
|
|
|
^$(bits [vale bits], uses t.uses)
|
|
|
|
|
?- (cap sour)
|
|
|
|
|
%2
|
|
|
|
|
=. axle (peg axle 2)
|
|
|
|
|
=. sour (mas sour)
|
|
|
|
|
=/ pale (~(get by gasp) axle)
|
|
|
|
|
?~ pale
|
|
|
|
|
%= $
|
|
|
|
|
bins [%hed vale lamb.burg]
|
|
|
|
|
vale lamb.burg
|
|
|
|
|
gasp (~(put by gasp) axle lamb.burg)
|
|
|
|
|
lamb.burg .+(lamb.burg)
|
|
|
|
|
==
|
|
|
|
|
$(vale u.pale)
|
|
|
|
|
::
|
|
|
|
|
%3
|
|
|
|
|
=. axle (peg axle 3)
|
|
|
|
|
=. sour (mas sour)
|
|
|
|
|
=/ pale (~(get by gasp) axle)
|
|
|
|
|
?~ pale
|
|
|
|
|
%= $
|
|
|
|
|
bins [%tal vale lamb.burg]
|
|
|
|
|
vale lamb.burg
|
|
|
|
|
gasp (~(put by gasp) axle lamb.burg)
|
|
|
|
|
lamb.burg .+(lamb.burg)
|
|
|
|
|
==
|
|
|
|
|
$(vale u.pale)
|
|
|
|
|
==
|
|
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
work t.work
|
|
|
|
|
==
|
|
|
|
|
++ weed :: remove unused safe operations (imm,mov,unc,con,hud,tul)
|
|
|
|
|
=* this .
|
|
|
|
|
|= work=(list barn)
|
|
|
|
|
^- _this
|
|
|
|
|
?~ work this
|
|
|
|
|
=/ herd (~(got by land.burg) i.work) :: sack for this arm
|
|
|
|
|
=| dead=(jug (unit berm) @) :: values used by a label and its successor code
|
|
|
|
|
=/ furs=(list (unit berm)) [~]~
|
|
|
|
|
|- ^- _this
|
|
|
|
|
?~ furs
|
|
|
|
|
^$(work t.work, land.burg (~(put by land.burg) i.work herd))
|
|
|
|
|
?: (~(has by dead) i.furs) :: did we already analyze this arm
|
|
|
|
|
$(furs t.furs)
|
|
|
|
|
=/ meat (~(got by goes.does.herd) i.furs)
|
|
|
|
|
|^
|
|
|
|
|
?- -.bend.meat
|
|
|
|
|
%clq
|
|
|
|
|
=/ troo (~(get by dead) `+>-.bend.meat)
|
|
|
|
|
?~ troo $(furs [`+>-.bend.meat furs])
|
|
|
|
|
=/ fals (~(get by dead) `+>+.bend.meat)
|
|
|
|
|
?~ fals $(furs [`+>+.bend.meat furs])
|
|
|
|
|
~! u.troo
|
|
|
|
|
~! u.fals
|
|
|
|
|
~! +<.bend.meat
|
|
|
|
|
(vein (~(uni in u.troo) (~(put in u.fals) +<.bend.meat)))
|
|
|
|
|
::
|
|
|
|
|
%eqq
|
|
|
|
|
=/ troo (~(get by dead) `+>+<.bend.meat)
|
|
|
|
|
?~ troo $(furs [`+>+<.bend.meat furs])
|
|
|
|
|
=/ fals (~(get by dead) `+>+>.bend.meat)
|
|
|
|
|
?~ fals $(furs [`+>+>.bend.meat furs])
|
|
|
|
|
(vein (~(uni in u.troo) (~(gas in u.fals) [+<.bend.meat +>-.bend.meat ~])))
|
|
|
|
|
::
|
|
|
|
|
%brn
|
|
|
|
|
=/ troo (~(get by dead) `+>-.bend.meat)
|
|
|
|
|
?~ troo $(furs [`+>-.bend.meat furs])
|
|
|
|
|
=/ fals (~(get by dead) `+>+.bend.meat)
|
|
|
|
|
?~ fals $(furs [`+>+.bend.meat furs])
|
|
|
|
|
(vein (~(uni in u.troo) (~(put in u.fals) +<.bend.meat)))
|
|
|
|
|
::
|
|
|
|
|
%hop
|
|
|
|
|
=/ want (~(get by dead) `+.bend.meat)
|
|
|
|
|
?~ want $(furs [`+.bend.meat furs])
|
|
|
|
|
(vein u.want)
|
|
|
|
|
::
|
|
|
|
|
%lnk
|
|
|
|
|
=/ want (~(get by dead) `+>+>.bend.meat)
|
|
|
|
|
?~ want $(furs [`+>+>.bend.meat furs])
|
|
|
|
|
(vein (~(gas in u.want) [+<.bend.meat +>-.bend.meat ~]))
|
|
|
|
|
::
|
|
|
|
|
%cal
|
|
|
|
|
=/ want (~(get by dead) `+>+>.bend.meat)
|
|
|
|
|
?~ want $(furs [`+>+>.bend.meat furs])
|
|
|
|
|
(vein (~(gas in u.want) +>-.bend.meat))
|
|
|
|
|
::
|
|
|
|
|
%bec
|
|
|
|
|
~| %bec-trip !!
|
|
|
|
|
::
|
|
|
|
|
%lnt
|
|
|
|
|
(vein (silt [+<.bend.meat]~))
|
|
|
|
|
::
|
|
|
|
|
%jmp
|
|
|
|
|
(vein (silt +>.bend.meat))
|
|
|
|
|
::
|
|
|
|
|
%eye
|
|
|
|
|
~| %eye-trip !!
|
|
|
|
|
::
|
|
|
|
|
%spy
|
|
|
|
|
=/ want (~(get by dead) `+>+>.bend.meat)
|
|
|
|
|
?~ want $(furs [`+>+>.bend.meat furs])
|
|
|
|
|
(vein (~(gas in u.want) [+<.bend.meat +>-.bend.meat ~]))
|
|
|
|
|
::
|
|
|
|
|
%hnt
|
|
|
|
|
=/ want (~(get by dead) `+>.bend.meat)
|
|
|
|
|
?~ want $(furs [`+>.bend.meat furs])
|
|
|
|
|
(vein (~(put in u.want) +<.bend.meat))
|
|
|
|
|
::
|
|
|
|
|
%don
|
|
|
|
|
(vein (silt [+.bend.meat]~))
|
|
|
|
|
::
|
|
|
|
|
%bom
|
|
|
|
|
(vein ~)
|
|
|
|
|
==
|
|
|
|
|
++ vein
|
|
|
|
|
|= uses=(set @)
|
|
|
|
|
=/ boyd (flop body.meat)
|
|
|
|
|
=| bond=(list bran)
|
|
|
|
|
|- ^- _this
|
|
|
|
|
~! goes.does.herd
|
|
|
|
|
~! i.furs
|
|
|
|
|
?~ boyd
|
|
|
|
|
%= ^^^$
|
|
|
|
|
furs t.furs
|
|
|
|
|
goes.does.herd
|
|
|
|
|
(~(put by goes.does.herd) i.furs [bond bend.meat])
|
|
|
|
|
dead
|
|
|
|
|
(~(put by dead) i.furs `(set @)`uses)
|
|
|
|
|
==
|
|
|
|
|
?- -.i.boyd
|
|
|
|
|
%imm
|
|
|
|
|
?: (~(has in uses) +>.i.boyd)
|
|
|
|
|
$(bond [i.boyd bond], boyd t.boyd)
|
|
|
|
|
$(boyd t.boyd)
|
|
|
|
|
::
|
|
|
|
|
%mov
|
|
|
|
|
?: (~(has in uses) +>.i.boyd)
|
|
|
|
|
$(bond [i.boyd bond], boyd t.boyd, uses (~(put in uses) +<.i.boyd))
|
|
|
|
|
$(boyd t.boyd)
|
|
|
|
|
::
|
|
|
|
|
%inc
|
|
|
|
|
$(bond [i.boyd bond], boyd t.boyd, uses (~(put in uses) +<.i.boyd))
|
|
|
|
|
::
|
|
|
|
|
%unc
|
|
|
|
|
?: (~(has in uses) +>.i.boyd)
|
|
|
|
|
$(bond [i.boyd bond], boyd t.boyd, uses (~(put in uses) +<.i.boyd))
|
|
|
|
|
$(boyd t.boyd)
|
|
|
|
|
::
|
|
|
|
|
%con
|
|
|
|
|
?: (~(has in uses) +>+.i.boyd)
|
|
|
|
|
%= $
|
|
|
|
|
bond [i.boyd bond]
|
|
|
|
|
boyd t.boyd
|
|
|
|
|
uses (~(gas in uses) [+<.i.boyd +>-.i.boyd ~])
|
|
|
|
|
==
|
|
|
|
|
$(boyd t.boyd)
|
|
|
|
|
::
|
|
|
|
|
%hed
|
|
|
|
|
$(bond [i.boyd bond], boyd t.boyd, uses (~(put in uses) +<.i.boyd))
|
|
|
|
|
::
|
|
|
|
|
%hud
|
|
|
|
|
?: (~(has in uses) +>.i.boyd)
|
|
|
|
|
$(bond [i.boyd bond], boyd t.boyd, uses (~(put in uses) +<.i.boyd))
|
|
|
|
|
$(boyd t.boyd)
|
|
|
|
|
::
|
|
|
|
|
%tal
|
|
|
|
|
$(bond [i.boyd bond], boyd t.boyd, uses (~(put in uses) +<.i.boyd))
|
|
|
|
|
::
|
|
|
|
|
%tul
|
|
|
|
|
?: (~(has in uses) +>.i.boyd)
|
|
|
|
|
$(bond [i.boyd bond], boyd t.boyd, uses (~(put in uses) +<.i.boyd))
|
|
|
|
|
$(boyd t.boyd)
|
|
|
|
|
==
|
|
|
|
|
--
|
2022-09-15 02:51:52 +03:00
|
|
|
--
|
