以下のような形式で解いてみた。
１問目だけあって、割と簡単だった。

========================================================

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 

========================================================

上記コードは、無駄な処理が多いという指摘を受けたので、golf してみた。

========================================================

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]
========================================================

次の問題も何とか解けた。。。

#! /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

こういうコードを書いてしまうことが問題。。。
短いコード以外では、ゴルフ投稿は　当分控えることにしよう。。。

と書いた５分後に投稿してしまった。

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]]

 

(1)
キーボードの設定から苦しんだｗｗｗ

http://softsupport.seesaa.net/article/25513552.html

この辺を参照させてもらった。

(2)
chroot も激むずかしかった。。。

#chroot  /mnt/gentoo

で、エラーが出るので、

#ldd /bin/bash
で確認を行い、

#mkdir /mnt/gentoo/bin
#cp -L /bin/* /mnt/gentoo/bin/.

#mkdir /mnt/gentoo/lib
#cp -L /bin/* /mnt/gentoo/lib/.

を行うと解決しますた。