[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
f[]=[]f(x:s)=[[x]]++map(x:)(f s)g[]=[]g(x:s)=f(x:s)++g smain=do l<-getLine;mapM print$g$(\s->s++init s)$words l
100 200 300
["100"] ["100","200"] ["100","200","300"] ["100","200","300","100"] ["100","200","300","100","200"] ["200"] ["200","300"] ["200","300","100"] ["200","300","100","200"] ["300"] ["300","100"] ["300","100","200"] ["100"] ["100","200"] ["200"]
f[]=[] f(x:s)=[[x]]++map(x:)(f s) g[]=[] g(x:s)=f(x:s)++g s h[a]=a h(a:b)|sum a>sum(b!!0)=h(a:tail b)|1>0=h b main=do l<-getLine print$h$g$map read$(\s->s++init s)$words l
1004 -2010 2008 -2011 1005
[1005,1004]
x#y|x^2>=y='*'|1>0=' 'main=do n<-readLn;mapM putStrLn[[n#(x^2+y^2)|x<-[-n..n]]|y<-[-n..n]]
main=do n<-readLn mapM putStrLn[["* "!!(0^(max(1+n^2-x^2-y^2)0))|x<-[-n..n]]|y<-[-n..n]]
main=interact$\\ (\n->unlines$[["* "!!(0^(max(1+n^2-x^2-y^2)0))|x<-[-n..n]]|y<-[-n..n]]).read
main=do n<-readLn mapM putStrLn[[" *"!!(0^max(x^2+y^2-n^2)0)|x<-[-n..n]]|y<-[-n..n]]
main=do n<-readLn mapM putStrLn[["* "!!div(x^2+y^2)(n^2+1)|x<-[-n..n]]|y<-[-n..n]]
v=" "w="\\"x="/"y=""f(a,b,c,d)=a++"('-')"++b++"\n "++c++"|_|"++d++"\n | |"g 4=f(v,x,x,y)g 5=f(w,y,v,w)g n=f(w,x,v,y)main=interact$g.length
f n[x]=show n++[x]f n(x:s)|x==s!!0=f(n+1)s|1>0=f n[x]++f 1smain=interact$unlines.take 12.iterate(f 1)
n#[x]=show n++[x]n#(x:s)|x==s!!0=(n+1)#s|1>0=n#[x]++1#smain=interact$unlines.take 12.iterate(1#)
main=getLine>>=(interact id>>).putStr
