Return to suspend2.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / port

BSD 4.3

#  This program tests rt/suspend.s

procedure main()
   local line, alpha, n
   alpha := "abcd"
   n := 3
   write(meander(alpha,n))
end

procedure meander(alpha,n)
   local result, t, i, c, k
   i := k := *alpha
   t := n - 1
   result := repl(alpha[1],t)
   while c := alpha[i] do {
      if find(result[-t:0] || c,result)
      then i -:= 1
      else {result ||:= c; i := k}
      }
   return result
end

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