picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

pilog.l (347B)

      1 # 19jul13abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (be mapcar (@ NIL NIL))
      5 (be mapcar (@P (@X . @L) (@Y . @M))
      6    (call @P @X @Y)
      7    (mapcar @P @L @M) )
      8 
      9 # Contributed by Clemens Hinze <cle-picolisp@qiao.in-berlin.de>
     10 (be findall (@Pat @P @Res)
     11    (^ @Res
     12       (solve
     13          (-> @P)
     14          (or @Pat (fill (-> @Pat))) ) ) )
     15 
     16 # vi:et:ts=3:sw=3