urbit/ares
1
1
Fork 0
mirror of https://github.com/urbit/ares.git synced 2024-11-26 09:57:56 +03:00
Code Issues Packages Projects Releases Wiki Activity

broken: somehow the formula expands

Browse Source
This commit is contained in:
Edward Amsden 2022-02-16 16:41:27 -06:00
parent f306ca1db5
commit 65b5e829e0
No known key found for this signature in database
GPG Key ID: 548EDF608CA956F6
1 changed files with 121 additions and 157 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

278
subject-knowledge/lib/subject-knowledge.hoon
View File

@ -13,13 +13,17 @@
:: test whether a sock nests in another sock :: test whether a sock nests in another sock
:: a=sock nests in b=sock if b has the same information as a, or :: a=sock nests in b=sock if b has the same information as a, or
:: strictly more information :: strictly more information
::
:: mous ignores hints for matching
++ mous ++ mous
|= [a=sock b=sock] |= [a=sock b=sock]
^- ? ^- ?
|-
^- ?
?: ?= [%gues ~] a ?: ?= [%gues ~] a
%.y %.y
?: ?= [%hint *] a
$(a r.a)
?: ?= [%hint *] b
$(b r.b)
?- a ?- a
:: ::
[%know *] [%know *]
@ -50,6 +54,14 @@
== ==
== ==
== ==
:: compute what we know of the result of a formula
::
:: We may reimplement this more efficiently later, but this way we
:: don't have to keep updating our experiments in 2 implementations
++ wash
|= [s=sock f=*]
^- [sock _memo]
[r.- +]:(pull s f)
:: Check for a jet :: Check for a jet
++ juke ++ juke
|= [s=sock f=*] |= [s=sock f=*]
@ -66,9 +78,16 @@
`->.jets `->.jets
$(jets +.jets) $(jets +.jets)
:: learn a noun at an address :: learn a noun at an address
::
:: darn discards hints if it must descend through them
::
:: TODO: we use +knit everywhere, this is just +knit with [%know *], can
:: we get rid of it?
++ darn ++ darn
|= [s=sock b=@ n=*] |= [s=sock b=@ n=*]
^- sock ^- sock
?: ?= [%hint *] s
$(s r.s)
?: =(b 1) ?: =(b 1)
[%know n] [%know n]
?: ?= [%know *] s ?: ?= [%know *] s
@ -97,6 +116,9 @@
== ==
== ==
:: axis into a sock :: axis into a sock
::
:: yarn will return a hint record if it is at an axis
:: but will discard them as it descends through them
++ yarn ++ yarn
|= [s=sock b=@] |= [s=sock b=@]
^- sock ^- sock
@ -104,6 +126,8 @@
|- |-
?: =(b 1) ?: =(b 1)
s s
?: ?= [%hint *] s
$(s r.s) :: descend through hint records
?- s ?- s
:: ::
[%know *] [%know *]
@ -114,6 +138,50 @@
[%gues ~] [%gues ~]
:: ::
[%bets p=* q=*] [%bets p=* q=*]
?- (cap b)
::
%2
$(b (mas b), s p.s)
::
%3
$(b (mas b), s q.s)
::
==
==
:: axis into a sock, retrieving a name from a fast hint
++ narn
|= [s=sock b=@]
^- [sock (unit @tas)]
?< =(b 0)
=| nam=(unit @tas)
|-
^- [sock (unit @tas)]
?: =(b 1)
?. ?= [%hint *] s [s ~]
?. =(s.s %fast) [s ~]
?~ d.s [s ~]
=/ namsock (yarn u.d.s 2)
?. ?= [%know @] namsock [s ~]
[s `k.namsock]
?: ?= [%hint *] s
?. =(s.s %fast) $(s r.s)
?~ d.s $(s r.s)
=/ namsock (yarn u.d.s 2)
?. ?= [%know @] namsock $(s r.s)
=. nam `k.namsock
$(s r.s)
?- s
::
[%know *]
:-
:- %know
.* k.s [%0 b]
nam
::
[%gues ~]
[[%gues ~] nam]
::
[%bets * *]
?- (cap b) ?- (cap b)
:: ::
%2 %2
@ -129,6 +197,8 @@
^- sock ^- sock
?: =(b 1) ?: =(b 1)
t t
?: ?= [%hint *] s
[%hint s.s d.s $(s r.s)]
?- s ?- s
:: ::
[%know @] [%know @]
@ -191,125 +261,6 @@
[%know =(a b)] [%know =(a b)]
[%gues ~] [%gues ~]
[%gues ~] [%gues ~]
:: Compute what we know of a Nock formula's result
++ wash
|= [s=sock f=*]
^- [sock _memo]
|-
^- [sock _memo]
=/ sockf
|= [s=sock f=sock]
^- [sock _memo]
?. ?= [%know *] f
[[%gues ~] memo]
=/ m (~(get by memo) s k.f)
?~ m
:: memo miss
=. memo (~(put by memo) [s k.f] [~ ~])
=^ r memo ^$(s s, f +.f)
[r (~(put by memo) [s k.f] [`r ~])]
?~ -.u.m
:: memo blackhole
[[%gues ~] memo]
:: memo hit]
[u.-.u.m memo]
?+ f ~| %wash-bonk !!
::
[[* *] *]
=^ pres memo $(f -.f)
=^ qres memo $(f +.f)
[(knit [%bets pres [%gues ~]] 3 qres) memo]
::
[%0 b=@]
[(yarn s b.f) memo]
::
[%1 b=*]
[[%know b.f] memo]
::
[%2 b=* c=*]
=^ bres memo $(f b.f)
=^ cres memo $(f c.f)
(sockf s=bres f=cres)
::
[%3 b=*]
=^ bres memo $(f b.f)
:_ memo
?- bres
::
[%know @]
[%know 1]
::
[%know * *]
[%know 0]
::
[%bets * *]
[%know 0]
:: maybe we want to distinguish unknown noun and unknown atom?
:: (bet is unknown cell...)
[%gues ~]
[%gues ~]
==
::
[%4 b=*]
=^ bres memo $(f b.f)
[[%gues ~] memo]
::
[%5 b=* c=*]
=^ bres memo $(f b.f)
=^ cres memo $(f c.f)
[(pear bres cres) memo]
::
[%6 b=* c=* d=*]
=^ bres memo $(f b.f)
?+ bres ~| %wash-nest !!
::
[%know %0]
$(f c.f)
::
[%know %1]
$(f d.f)
:: can we merge them somehow in this case? things the branches
:: agree on?
[%gues ~]
[[%gues ~] memo]
==
::
[%7 b=* c=*]
=^ bres memo $(f b.f)
$(s bres, f c.f)
::
[%8 b=* c=*]
=^ bres memo $(f b.f)
$(s (knit [%bets [%gues ~] s] 2 bres), f c.f)
::
[%9 b=@ c=*]
=^ cres memo $(f c.f)
(sockf cres (yarn cres b.f))
::
[%10 [b=@ c=*] d=*]
=^ cres memo $(f c.f)
=^ dres memo $(f d.f)
[(knit dres b.f cres) memo]
::
[%11 b=@ c=*]
$(f c.f)
::
[%11 [b=@ c=*] d=*]
=^ cres memo $(f c.f)
?: =(b.f %data)
=/ c c.f
|-
?: ?= [[%0 @] *] c
=. s (knit s ->.c [%gues ~])
$(c +.c)
^$(f d.f)
$(f d.f)
::
[%12 ref=* path=*]
=^ rres memo $(f ref.f)
=^ pres memo $(f path.f)
[[%gues ~] memo]
==
:: Description of knowledge at a call site :: Description of knowledge at a call site
:: ::
:: Codegen behavior :: Codegen behavior
@ -355,7 +306,6 @@
== ==
$= s sock $= s sock
$= r sock $= r sock
$= h (unit [@ (unit sock)])
== ==
++ cort ++ cort
|= =coot |= =coot
@ -378,15 +328,9 @@
[%gues ~] [%gues ~]
== ==
++ pull-eval ++ pull-eval
|= [s=sock f=sock h=(unit [@ (unit sock)])] |= [s=sock f=sock nam=(unit @tas)]
^- [coot _memo] ^- [coot _memo]
=/ nam ?: ?= [%hint *] f $(f r.f)
?~ h ~
?. =(-.u.h %fast) ~
?~ +.u.h ~
=/ namsock (yarn u.+.u.h 2)
?. ?= [%know @] namsock ~
`k.namsock
?. ?= [%know *] f ?. ?= [%know *] f
~& "Dyn: {<s>}" ~& "Dyn: {<s>}"
[[%dyn s] memo] [[%dyn s] memo]
@ -413,29 +357,36 @@
++ pull ++ pull
|= [s=sock f=*] |= [s=sock f=*]
^- [foot _memo] ^- [foot _memo]
~| "Formula {(scow %q (mug f))}"
?+ f ~| "Unrecognized nock {<f>}" ~| %pull-bonk !! ?+ f ~| "Unrecognized nock {<f>}" ~| %pull-bonk !!
:: ::
[[* *] *] [[* *] *]
=^ pfoot memo $(f -.f) =^ pfoot memo $(f -.f)
=^ qfoot memo $(f +.f) =^ qfoot memo $(f +.f)
[[[%cell pfoot qfoot] s=s r=(knit [%bets r.pfoot [%gues ~]] 3 r.qfoot) h=~] memo] [[[%cell pfoot qfoot] s=s r=(knit [%bets r.pfoot [%gues ~]] 3 r.qfoot)] memo]
:: ::
[%0 b=@] [%0 b=@]
[[[%0 b.f] s=s r=(yarn s b.f) h=~] memo] [[[%0 b.f] s=s r=(yarn s b.f)] memo]
:: ::
[%1 b=*] [%1 b=*]
[[[%1 b.f] s=s r=[%know b.f] h=~] memo] [[[%1 b.f] s=s r=[%know b.f]] memo]
:: ::
[%2 b=* c=*] [%2 b=* c=*]
=^ bfoot memo $(f b.f) =^ bfoot memo $(f b.f)
=^ cfoot memo $(f c.f) =^ cfoot memo $(f c.f)
=^ coot memo (pull-eval r.bfoot r.cfoot h.cfoot) =/ [r=sock nam=(unit @tas)] (narn r.cfoot 1)
[[[%2 bfoot cfoot coot] s (cort coot) h=~] memo] =^ coot memo (pull-eval r.bfoot r nam)
[[[%2 bfoot cfoot coot] s (cort coot)] memo]
:: ::
[%3 b=*] [%3 b=*]
=^ bfoot memo $(f b.f) =^ bfoot memo $(f b.f)
=/ br r.bfoot
=/ r =/ r
?- r.bfoot |-
?- br
::
[%hint *]
$(br r.br)
:: ::
[%know @] [%know @]
[%know 1] [%know 1]
@ -449,64 +400,77 @@
[%gues ~] [%gues ~]
[%gues ~] [%gues ~]
== ==
[[[%3 bfoot] s r h=~] memo] [[[%3 bfoot] s r] memo]
:: ::
[%4 b=*] [%4 b=*]
=^ bfoot memo $(f b.f) =^ bfoot memo $(f b.f)
[[[%4 bfoot] s [%gues ~] h=~] memo] [[[%4 bfoot] s [%gues ~]] memo]
:: ::
[%5 b=* c=*] [%5 b=* c=*]
=^ bfoot memo $(f b.f) =^ bfoot memo $(f b.f)
=^ cfoot memo $(f c.f) =^ cfoot memo $(f c.f)
=/ br r.bfoot
=/ cr r.cfoot
=/ r =/ r
|-
?: ?= [%hint *] br
$(br r.br)
?: ?= [%hint *] cr
$(cr r.cr)
?: ?= [%know *] r.bfoot ?: ?= [%know *] r.bfoot
?: ?= [%know *] r.cfoot ?: ?= [%know *] r.cfoot
[%know =(k.r.bfoot k.r.cfoot)] [%know =(k.r.bfoot k.r.cfoot)]
[%gues ~] [%gues ~]
[%gues ~] [%gues ~]
[[[%5 bfoot cfoot] s r h=~] memo] [[[%5 bfoot cfoot] s r] memo]
:: ::
[%6 b=* c=* d=*] [%6 b=* c=* d=*]
=^ bfoot memo $(f b.f) =^ bfoot memo $(f b.f)
?+ r.bfoot ~| %pull-nest !! =/ br r.bfoot
|-
?+ br ~| %pull-nest !!
::
[%hint *]
$(br r.br)
:: ::
[%know %0] [%know %0]
=^ cfoot memo $(f c.f) =^ cfoot memo ^$(f c.f)
[[[%6 bfoot `cfoot ~] s r.cfoot h=~] memo] [[[%6 bfoot `cfoot ~] s r.cfoot] memo]
:: ::
[%know %1] [%know %1]
=^ dfoot memo $(f d/f) =^ dfoot memo ^$(f d/f)
[[[%6 bfoot ~ `dfoot] s r.dfoot h=~] memo] [[[%6 bfoot ~ `dfoot] s r.dfoot] memo]
:: ::
[%gues ~] [%gues ~]
=^ cfoot memo $(f c.f) =^ cfoot memo ^$(f c.f)
=^ dfoot memo $(f d.f) =^ dfoot memo ^$(f d.f)
[[[%6 bfoot `cfoot `dfoot] s [%gues ~] h=~] memo] [[[%6 bfoot `cfoot `dfoot] s [%gues ~]] memo]
== ==
:: ::
[%7 b=* c=*] [%7 b=* c=*]
=^ bfoot memo $(f b.f) =^ bfoot memo $(f b.f)
=^ cfoot memo $(s r.bfoot, f c.f) =^ cfoot memo $(s r.bfoot, f c.f)
[[[%7 bfoot cfoot] s r.cfoot h=~] memo] [[[%7 bfoot cfoot] s r.cfoot] memo]
:: ::
[%8 b=* c=*] [%8 b=* c=*]
=^ bfoot memo $(f b.f) =^ bfoot memo $(f b.f)
=^ cfoot memo $(s (knit [%bets [%gues ~] s] 2 r.bfoot), f c.f) =^ cfoot memo $(s (knit [%bets [%gues ~] s] 2 r.bfoot), f c.f)
[[[%8 bfoot cfoot] s=s r=r.cfoot h=~] memo] [[[%8 bfoot cfoot] s=s r=r.cfoot] memo]
:: ::
[%9 b=@ c=*] [%9 b=@ c=*]
=^ cfoot memo $(f c.f) =^ cfoot memo $(f c.f)
=^ coot memo (pull-eval r.cfoot (yarn r.cfoot b.f) h.cfoot) =/ [r=sock nam=(unit @tas)] (narn r.cfoot b.f)
[[[%9 b.f cfoot coot] s (cort coot) h=h.cfoot] memo] =^ coot memo (pull-eval r.cfoot r nam)
[[[%9 b.f cfoot coot] s (cort coot)] memo]
:: ::
[%10 [b=@ c=*] d=*] [%10 [b=@ c=*] d=*]
=^ cfoot memo $(f c.f) =^ cfoot memo $(f c.f)
=^ dfoot memo $(f d.f) =^ dfoot memo $(f d.f)
[[[%10 [b.f cfoot] dfoot] s (knit r.dfoot b.f r.cfoot) h=h.dfoot] memo] [[[%10 [b.f cfoot] dfoot] s (knit r.dfoot b.f r.cfoot)] memo]
:: ::
[%11 b=@ c=*] [%11 b=@ c=*]
=^ cfoot memo $(f c.f) =^ cfoot memo $(f c.f)
[[[%11 b.f cfoot] s r=r.cfoot h=`[b.f ~]] memo] [[[%11 b.f cfoot] s r=[%hint b.f ~ r.cfoot]] memo]
:: ::
[%11 [b=@ c=*] d=*] [%11 [b=@ c=*] d=*]
=^ cfoot memo $(f c.f) =^ cfoot memo $(f c.f)
@ -520,14 +484,14 @@
=. s (knit s ->.c [%gues ~]) =. s (knit s ->.c [%gues ~])
$(c +.c) $(c +.c)
=^ dfoot memo ^$(f d.f) =^ dfoot memo ^$(f d.f)
[[[%11 [b.f cfoot] dfoot] s r.dfoot h=`[b.f `r.cfoot]] memo] [[[%11 [b.f cfoot] dfoot] s [%hint b.f `r.cfoot r.dfoot]] memo]
=^ dfoot memo $(f d.f) =^ dfoot memo $(f d.f)
[[[%11 [b.f cfoot] dfoot] s r.dfoot h=`[b.f `r.cfoot]] memo] [[[%11 [b.f cfoot] dfoot] s [%hint b.f `r.cfoot r.dfoot]] memo]
:: ::
[%12 ref=* path=*] [%12 ref=* path=*]
=^ reffoot memo $(f ref.f) =^ reffoot memo $(f ref.f)
=^ pathfoot memo $(f path.f) =^ pathfoot memo $(f path.f)
[[[%12 reffoot pathfoot] s [%gues ~] h=~] memo] [[[%12 reffoot pathfoot] s [%gues ~]] memo]
== ==
:: example nocks for testing :: example nocks for testing
++ nocs ++ nocs
@ -586,7 +550,7 @@
+$ sock +$ sock
$% $%
[%know k=*] [%know k=*]
[%hint s=@ h=sock r=sock] [%hint s=@ d=(unit sock) r=sock]
[%bets p=sock q=sock] [%bets p=sock q=sock]
[%gues ~] [%gues ~]
== ==