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     ! 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.