昨日の日記。 昨日は流星群をみてきました！！ 夕方まで旅行の準備したりビデオ消化したりHaskellしたりして、 時刻は21時頃。 そろそろいい時間になってきたので着物を詰めたり新聞紙探したり、明日の準備も含めて荷物を詰める。 22時半に出発。 こんな時間…

windows7のデスクトップPCに、Ubuntuをbootする！ ライブCDは以前、現在はFedoraマシンとなっているPCに導入するつもりで一度作成していたので、それを用いる。 もっとも、今は11.04の新しいversionがでているそうですが。 指示にしたがい選択していくだけで…

パソコン甲子園2010年度予選問題第四問を Haskellで。 なんてことはないですね ice = repeat "" f :: [String] -> [Int] -> String f ds [] = unlines $ map (\str -> if str == "" then "-" else str) ds f ds (x:xs) = f recompose xs where recompose = t…

f :: Integral a => a -> a f n = sum $ map (check.(\a -> [a , n-a])) [2..div n 2] check :: Integral a => [a] -> a check ab = case all prime ab of True -> 1 False -> 0 prime :: Integral a => a -> Bool prime 1 = False prime 2 = True prime n =…