Return to permute.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests

Annotation of researchv10dc/cmd/icon/tests/permute.icn, revision 1.1.1.1

1.1       root        1: procedure main()
                      2:    every 1 to 4 do
                      3:    every write(permute("rogram"))
                      4: end
                      5: 
                      6: procedure permute(s)
                      7:    local i, x, t
                      8:    if s == "" then return ""
                      9:    every i := 1 to *s do {
                     10:       x := s[i]
                     11:       t := s
                     12:       t[i] := ""
                     13:       suspend x || permute(t)
                     14:       }
                     15: end

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