16/03/06 00:31:45.05 WEeJcjtE.net
>>340
haskell
main = mapM(putStrLn) [p x|x<- sequence $ [1]:[[x,-x]|x<-[2..9]],1==sum x]
p=concat.map(\x ->if x>1 then "+"++show x else show x)
16/03/06 00:31:45.05 WEeJcjtE.net
>>340
haskell
main = mapM(putStrLn) [p x|x<- sequence $ [1]:[[x,-x]|x<-[2..9]],1==sum x]
p=concat.map(\x ->if x>1 then "+"++show x else show x)