2006-05-21

■Clean　遅延評価が(ちょっと)便利なとき

	         ListLS ( map (\ (label,x) -> ButtonControl  (toString $ label) 
	                                  [ControlPos (LeftTop ,OffsetVector {vx=x*bw,vy=0})]
	                       )
	                       (zip2 labels [0..])  )

無限リストを引数に取れるのでzip 関数と組み合わせてこんな感じで、画面がつくれたりする。

だからどうしたと言う感じだが…

CleanのWindowのコントロールについてはここら辺参照

http://sky.zero.ad.jp/~zaa54437/programming/clean/ObjectIOLibrary12/Chap7.html

Permalink | コメント(0) | トラックバック(0) | 23:40

■ Sum

http://sicp.g.hatena.ne.jp/hyuki/20060521

を読んで浮かんだ解をCleanで書いてみる

Start =  sumCol [ [1,2,3],[4,5,6],[7,8,9] ]
sumCol xss = map sum
                 (map (\ n -> (map (index n)    xss)) 
                      (indexList xss) )
where
	index n xs = (flip (!!) n) xs

われながら汚いとおもう。

その後url先の解を見てapplyって便利だなぁと思った

追記

というよりもSchemeのmapの動作がああいう動作だからか…

indexListつかえば上の

	         ListLS ( map (\ (label,x) -> ButtonControl  (toString $ label) 
	                                  [ControlPos (LeftTop ,OffsetVector {vx=x*bw,vy=0})]
	                       )
	                       (zip2 labels [0..])  )

は以下に書き直せるなぁ。無限リスト使う必要もなかった…

	         ListLS ( map (\ (label,x) -> ButtonControl  (toString $ label) 
	                                  [ControlPos (LeftTop ,OffsetVector {vx=x*bw,vy=0})]
	                       )
	                       (zip2 labels (indexList labels))  )

Permalink | コメント(0) | トラックバック(0) | 12:42