solution to the rmchars string scanning challenge on slide 182 of Unicon Programming Fundamentals

rmchars.icn

# learning Unicon/Icon. 
# here's my initial solution to the rmchars string scanning challenge on slide 182 of Unicon Programming Fundamentals
# http://www2.cs.uidaho.edu/~jeffery/courses/210/UniconFundamentals.pdf



procedure main(args)
    local t := "For both the structures described."
        
    write(rmchars(t, 'sed'))
    write(t)
end

procedure rmchars(s, c)
    local r := ""    
    local char

    s ? while char := move(1) do r ||:= char -- c                
    return r
end