Return to abcd.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / f

BSD 4.3

procedure main()
   while writes(line := read()) do
      if line ? (ABCD("","","","") & pos(0))
      then write(" accepted")
      else write(" rejected")
end

procedure ABCD(A,B,C,D)
   suspend (=A || =B || =C || =D) |
      (="a" || ABCD(A,"b" || B,C || "c",D) || ="d")
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.