link: graph validator compiles and runs

This commit is contained in:
Ted Blackman 2020-08-18 13:32:04 -04:00
parent 7acb2da366
commit 96d2906edc

View File

@ -0,0 +1,27 @@
/- *post
|_ i=indexed-post
++ grow
|%
++ noun i
--
++ grab
|%
++ noun
|= p=*
=/ ip ;;(indexed-post p)
?+ index.p.ip ~|(index+index.p.ip !!)
:: top-level link post
::
[@ ~]
?> ?=([[%text @] [%url @] [%text @] ~] contents.p.ip)
ip
::
:: comment on link post
::
[@ @ ~]
?> ?=([[%text @] ~] contents.p.ip)
ip
==
--
++ grad %noun
--