[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
isMultiple3or5 x |x`mod`3==0 = x |x`mod`5==0 = x |otherwise = 0 makeListOfMultiple3or5 list = map isMultiple3or5 list main=do n<-readLn print $ sum $ makeListOfMultiple3or5 $ take n $ iterate (1+) 0
n%m=n`mod`m<1 f n|n%5=n|n%3=n|1>0=0 main=do n<-readLn;print$sum$map f[1..n]
n%m=n`mod`m<1 f n|n%5=n|n%3=n|1>0=0 main=interact(\n->show$sum$map f[1..read n]) ======================================================== うーん、なんか 趣旨が変わってきた。。。 その後、考え直してみると、入力を考えなくて良いことに気づき、 もう少し縮めることができた。 ======================================================== n%m=n`mod`m<1 f n|n%5=n|n%3=n|1>0=0 main=print$sum$map f[1..1000] ========================================================
======================================================== うーん、なんか 趣旨が変わってきた。。。
n%m=n`mod`m<1 f n|n%5=n|n%3=n|1>0=0 main=print$sum$map f[1..1000] ========================================================
========================================================
#! /usr/bin/python a="map" b=chr(ord(a[0])+2) print b b=chr(ord(a[1])+2) print b b=chr(ord(a[2])+2) print b
http://www.pythonchallenge.com/ #! /usr/bin/python print 2**38
r 2=[] r n=([1..n-2]>>" ")++"Z\n"++r(n-1) f n=([1..n]>>"Z")++"\n" g n|n==1="Z"|1>0=f n++r n++f n main=do n<-readLn;putStr$g n こういうコードを書いてしまうことが問題。。。 短いコード以外では、ゴルフ投稿は 当分控えることにしよう。。。 と書いた5分後に投稿してしまった。 r 2=[] r n=([1..n-2]>>" ")++"Z\n"++r(n-1) f n=([1..n]>>"Z")++"\n" g n|n==1="Z"|1>0=f n++r n++f n main=readLn>>=putStr.g が、やはり当分は控えることに。。。 と思ったが、短くなったら 投稿せざるを得まい。。。 r 2=[] r n=([1..n-2]>>" ")++"Z\n"++r(n-1) f n=([1..n]>>"Z")++"\n" g 1="Z" g n=f n++r n++f n main=readLn>>=putStr.g 考え方をぱくって、なんとか 111 バイト。 もうやってられん!! f a b|a==b=b|1>0=b-a main=do n+1<-readLn;mapM putStrLn[[" Z"!!(0^((n-y)*y*(n-x-y))^2)|x<-[0..f y n]]|y<-[0..n]]
と思ったが、やっぱり縮める作業に入ってしまった。 f a b|a==b=b|1>0=b-a main=do n+1<-readLn;mapM putStrLn[[" Z"!!(0^((n-y)*y*(n-x-y)))|x<-[0..f y n]]|y<-[0..n]]