ライブラリと他のプログラムを見て、書けた♪

【初稿】
a,b=map(int,raw_input().split(","));
while a<=b:print a;a=a+1

あと１０くらいは縮められそうな気がする。。。
変数を使わないように工夫したらいけそうだが、はてさて。

python ライブラリがあったので見てみた。

http://www.python.jp/doc/pdf/release/lib.pdf

見て思ったのは、例文が無いので、どう記述したら動くのか分かりにくい。。。
こういうところで　つまづいてしまうことが多いなあ。

以下のコードのように、interact を使ってみたんだけど、

======================================
import code
hoge=""
code.interact("please input.")
======================================

実行してみても、

user@localhost ~ $ python interact.py
please input.
>>> test
Traceback (most recent call last):
  File "", line 1, in 
NameError: name 'test' is not defined
>>> hoge
Traceback (most recent call last):
  File "", line 1, in 
NameError: name 'hoge' is not defined
>>>

なんかエラーになる。。。

ライブラリには、以下のように記述されているけど、
readfunc とか local って何だろう。。。

こういう壁を感じて、いつもやさしい本とかに逃げるか、
やめてしまうか　してしまうねんなあ

interact([banner[, readfunc[, local ]]])
read-eval-print ループを実行するための便利な関数。これはInteractiveConsole の新しいイン
スタンスを作り、readfunc が与えられた場合はraw_input() メソッドとして使われるように設定
します。local が与えられた場合は、インタプリタループのデフォルト名前空間として使うために
InteractiveConsole コンストラクタへ渡されます。そして、インスタンスのinteract() メ
ソッドは見出しとして使うために渡されるbanner を受け取り実行されます。コンソールオブジェク
トは使われた後捨てられます。

printf を haskell で使いたいが、
何故　以下のようなコードがコンパイル通るのか
わからん。。。

import Text.Printf
main = f 0
f n = printf "%d" n >> f ([1]!!n)

import Text.Printf
main = printf "%d" (3::Int)

これが通るのは、何となく　飲み込んでもいいが、 >> がとにかく分からん。。。

【初稿】
a 0=1189
a 1=841
a n=a(n-2)`div`2
l=length
f n x k=n++([1..k-l n-l x]>>" ")++x
main=mapM putStr\\
["A"++f(show n)(show$a(n+1))7++"mm x"++f""(show$a n)5++"mm\n"|n<-[0..10]]

【修正後1】

a 0=1189
a 1=841
a n=a(n-2)`div`2
l=length
f n x k=n++([1..k-l n-l x]>>" ")++x
s=show
main=mapM putStr\\
['A':f(s n)(s$a(n+1))7++"mm x"++f""(s$a n)5++"mm\n"|n<-[0..10]]

【修正後2】 # 使ったが縮まってない。。。

a 0=1189
a 1=841
a n=a(n-2)`div`2
l=length
n#(x,k)=n++([1..k-l n-l x]>>" ")++x
s=show
main=mapM putStr\\
['A':s n#(s$a(n+1),7)++"mm x"++""#(s$a n,5)++"mm\n"|n<-[0..10]]

【修正後3】 # 綺麗に書いたつもりが縮まらない。。。
f[n,x,y]=[n+1,div y 2,x]
g[n,x,y]=['A':n++2#n,4#x++x++"mm x",4#y++y++"mm"]
n#l=[1..n-length l]>>" "
main=mapM putStrLn$map(unwords.g.map show)$take 11$iterate f[0,841,1189]

BeautifulSoup が使えそうだ。

後で　調べることにしよう。