Post Code

One recurring complaint is that nobody talks about code on /prog/. So everyone write go and write some code, any code, that does something, anything, and post it. A small explanation wouldn't go amiss either.


aStar s h next -> with [0=[s no 0]] []
  {:r os:ye? vs
    -> o:os.lhd,1 os=:os.ltl // pop lowest scored node
    -> next o,0 o,2
    |> {ye -> o.{:r [xy p:ye? @_] -> [@p.r xy]} // compile path
       ;ns -> for [n nG] in ns pG:vs.n // for each viable neighbor
                if pG.no? || nG < pG then do // no shorter path?
                  [[nG+n.h n]=[n o nG] @!os] // g+h
                  [n=nG @!vs]
           -> r os [o,0=o,2 @vs]}}