Submission #371298

---

Source Code Expand

import Text.Regex

main::IO()
main=do
    datc<-getLine
    let dat=words datc
    putStr (conc (reverse (notdel (reverse dat))))
    putStr "\n"
    
notdel::[String]->[String]
notdel []=[]
notdel (as:[])=[as]
notdel (as:bs:[])=[as,bs]
notdel (as:bs:cs:css)=if as/="not" && bs=="not" && cs=="not" then notdel (as:css) else as:(notdel (bs:cs:css))

conc::[String]->String
conc []=[]
conc (cs:[])=cs
conc (cs:css)=cs++( ' ' :(conc css))

Submission Info

Judge Result