Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- isConsonant := method(chr,
- "bcdfghjklmnpqrstvwxzBCDFGHJKLMNPQRSTVWXZ" findSeq(chr) isNil not)
- standardIO := File standardInput()
- rovarspraket := method(string, output,
- if(string isEmpty,
- output,
- firstChar := string at(0) asCharacter
- tailString := string exSlice(1)
- rovarspraket(tailString, output ..
- if(isConsonant(firstChar),
- firstChar .. "o" .. firstChar,
- firstChar))))
- main := method(
- "Saisissez une chaine : " println
- input := standardIO readLine
- a := rovarspraket(input, "")
- a println)
- main
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement