とにかく進むねん。

anarchy golf (Haskell) [Number lines]

betweens — 2012-12-13T21:26:39+09:00

【修正1】 65バイト

main=interact$(\t->unlines[show n++' ':s|(n,s)<-zip[1..]t]).lines

あと 11バイト縮められるとか、ちょっと想像つかないけど、うーん。

【修正2】 55バイト

main=f 1;f n=do l<-getLine;putStrLn$show n++' ':l;f$n+1

こちらも、別の問題の模範解答から　ノウハウゲット。
あと　１バイトは、もう分からない．．．

anarchy golf (Haskell) [spirals] 【Vol.4】

betweens — 2012-12-06T21:58:02+09:00

【修正前】 166バイト

main=do a:b:c:d<-getLine;read(a:[b])%read d
a%b=mapM putStrLn[["-+|"!!((x-a-max(1-y)(y-b))#(min(b+1-y)(max(y-1)1)-x))|x<-[1..a]]|y<-[1..b]]
a#b|a>0||b>0=2|1>0=0^(a*b)

【修正1】 165バイト

r=read
main=getLine>>=f.reads
f[(a,x:b)]=mapM putStrLn[["-+|"!!((x-a-max(1-y)(y-r b))#(min(r b+1-y)(max(y-1)1)-x))|x<-[1..a]]|y<-[1..r b]]
a#b|a>0||b>0=2|1>0=0^(a*b)

reads 関数の使い方がようやく分かってきたので、縮めることが出来た。
しかし、１バイトしか縮まないとは．．．

【修正2】 162バイト

main=getLine>>=f.reads
f[(a,p:q)]|b<-read q=mapM putStrLn[["-+|"!!((x-a-max(1-y)(y-b))#(min(b+1-y)(max(y-1)1)-x))|x<-[1..a]]|y<-[1..b]]
a#b|a>0||b>0=2|1>0=0^(a*b)

read した値を代入する結果は真って言えば、縮められるわけか。
別問題の模範解答から、ノウハウゲット！！
しかし、そろそろ限界かなあ

anarchy golf (Haskell) [ two kinds of digit ]　読解

betweens — 2012-12-05T06:34:13+09:00

【模範解答】 63バイト

import List
main=mapM print[n|n<-[1..10^4],[_,_]<-[nub$show n]]

リスト [_,_] に吐かせることで、プログラムが　長さ２のデータをフィルターしてくれるとは
予想もつかなかった。。。

正直、ゴルフコードを読んでも、難解で　理解出来ないことが多いので、
今回のは　少し理解が進んで　良かったと思ふ。

anarchy golf (Haskell) [Reduce fractions]

betweens — 2012-11-13T19:47:23+09:00

【初稿】 119バイト

m@main=getLine>>=putStrLn.g.map read.words.f>>m
f('/':s)=' ':s
f(x:s)=x:f s
a%b=show$div a$gcd a b
g[a,b]=a%b++"/"++b%a

もはや、ゴルフでも何でもない。　と思われる。
きっと強い人が縮めてくれるだろう。　と思われる。

anarchy golf (Haskell) [Fill in the blanks]

betweens — 2012-11-11T22:33:02+09:00

【初稿】 86バイト

main=interact$f.lines
f(w:x)=w%unlines x
[]%s=s
(a:s)%(b:t)|b=='_'=a:s%t|1>0=b:(a:s)%t

トップと天と地の差になってしまった。
しかし、解くことに意義を見出しているので、これでいいんだ！！と自分をだましてみる。

anarchy golf (Haskell) [6N plus minus one]

betweens — 2012-11-11T17:59:08+09:00

【初稿】 117バイト

s=show
f n|mod n 6>4=s(div(n+1)6)++" - 1"|1>0=s(div(n-1)6)++" + 1"
m@main=do n<-readLn;putStrLn$s n++" = 6 * "++f n;m

もはや、ゴルフにはなっていないかも。。。
お得意の(教えてもらった)コースをはずれると、全く戦えてない

【修正1】 112バイト

s=shows
f n|mod n 6>4=s(div(n+1)6)" - 1"|1>0=s(div(n-1)6)" + 1"
m@main=do n<-readLn;putStrLn$s n" = 6 * "++f n;m

anarchy golf (Haskell) [The same birthday]

betweens — 2012-11-10T22:49:43+09:00

【初稿】 154バイト

import Text.Printf
f::Int->Double
f n=1-(product$map(\x->1-x/365)[1..fromIntegral$n-1])
main=mapM(s(printf"n=%d, p=%.8f\n")f)[2..100]where s f g x=f x$g x

だめだ。。。
拾い乞食した上に、これが限界。

何が難しかったかというと、リストは１つのデータなのに、printfに２つのデータを出させる所。。。

anarchy golf (Haskell) [magnitude correlation]

betweens — 2012-11-06T21:27:58+09:00

【初稿】 113バイト

g[x]=x
g(x:y:s)|x!!0==last y=g((y++tail x):s)|y!!0==last x=g((x++tail y):s)|1>0=g(x:s++[y])
main=interact$g.lines

家帰ってから、投稿記録見て焦った。。。
４０近く縮めなければならないとは。

【修正1】 110バイト

x%y=x!!0==last y
x!y=x++tail y
g[x]=x
g(x:y:s)|x%y=g(y!x:s)|y%x=g(x!y:s)|1>0=g(x:s++[y])
main=interact$g.lines

果てしなく遠い

anarchy golf (Haskell) [Pragraph counter]

betweens — 2012-11-03T19:23:49+09:00

【初稿】 44バイト

main=interact$show.length.filter(/="").lines

anarchy golf (Haskell) [Line counter]

betweens — 2012-11-03T10:54:15+09:00

【初稿】　31バイト

main=interact$show.length.lines

おそらく詰み。。。