Return to reverse.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / book / 17

researchv10 Dan Cross

procedure reverse(s)
   static labels, trans, max
   initial {
      labels := "abcdefghijklmnopqrstuvwxyz"
      trans := "zyxwvutsrqponmlkjihgfedcba"
      max := *labels
      }
   if *s <= max then
      return map(right(trans,*s),left(labels,*s),s)
   else return reverse(right(s,*s - max)) ||
      map(trans,labels,left(s,max))
end

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