トップ «前の日記(2007-02-21) 最新 次の日記(2007-02-23)» 編集

U-memo

2006|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|08|
2009|08|10|
2010|02|03|
2011|11|12|
2012|04|
2016|02|
All= / Today= / Yesterday=

2007-02-22 [長年日記]

_ [Golf][OCaml] あなごる delete blank lines

kskさんに追い付かれたので予告通りネタばらし。

let rec f s=s<>""&()=print_endline s;f(read_line());;f""
  • 使用後
let rec f s=s>""&()=print_endline s;f(read_line());;f""

つまり、"" 以外の文字列は "" よりも大きいから <> ではなく > で十分なのです。

本日のツッコミ(全1件) [ツッコミを入れる]
_ ksk (2007-02-22 12:26)

私も全く同じ方法です.これは他にも役立ちそうなノウハウですね.