2008-03-01から1ヶ月間の記事一覧

問題追加

身体を追加しました。

日付処理サンプル

練習がてらいくつか書いてみました。 -- 現在時刻の取得(UTC) import Data.Time main = do t <- getCurrentTime putStr $ show t -- 現在時刻の取得 import Data.Time main = do t <- getCurrentTime tz <- getCurrentTimeZone putStr $ show $ utcToLocalTi…

モジュールのインポートで苦戦

日付処理を試そうとこんなプログラムを書きました。 import Data.Time main = do putStr $ show $ fromGregorian 2008 1 2 コンパイルしたらこんな結果。 >ghc -W fromGregorian.hs fromGregorian.o(.text+0xbe):fake: undefined reference to `timezm1zi1zi…

[いちばん」はてなブックマーク追加

リクエストがあったので、いろいろいちばんと今日のいちばんにはてなブックマークのブックマーク数を表示するようにしました。

ニコニコ動画追加

ニコニコ動画がいつの間にかRSS吐いてる件CommentsAdd Starを見て。いろいろいちばんと今日のいちばんにニコニコ動画を追加しました。

n進数変換

Perl表技集にn進数変換を追加しました。これを使うと倍数になる13進数が比較的簡単に書けるようになります。 use strict; use Math::BaseCalc; my $calc13 = Math::BaseCalc->new(digits => [0..9, 'a'..'c']); for (my $i = 10; ; $i++) { if ($calc13->fro…

プラグイン集追加

以下のプラグインを追加しました。 amazon amazon_ind img lastmodify nicovideo now youtube

リスト内包表記で書きました

ダブル完全数です。この前はリスト内包表記のことをすっかり忘れていましたが、今回は覚えていましたよ。 main = do print $ [x | x <- [1..10000], (x * 2) == sumOfAliquots(x)] sumOfAliquots :: Int -> Int sumOfAliquots n = sum $ aliquots n where al…

書式文字列がばらばらで覚えきれない

ひとりWikiのプラグインで、文書の最終更新日時を表示するものを作っています。具体的にはこんなプログラム。 library lastmodify; // http://homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/780_FileInfoListETC.htm // を参考にしました uses ActiveX, Sys…

再帰でFizzBuzz

Javaで三項演算子/再帰/StaticInitializerを使ったFizzBuzzを試してみたを見て。再帰で書く場合まず以下を思い浮かべるので、ちょっと書き方が変わります。 n-1 まではよろしくやってもらって n の時を頑張る 一つを自分がやって、残りを丸投げ リンク先はJa…

最初の一歩

社内発表用に作成したものに少し手を入れたものを公開しました。Haskell最初の一歩。書いてある内容は少なくて、型もモナドも参照透過性も出てきません。再帰とリストと遅延評価についてそれぞれちょっとだけ出てくるだけです。何らかの言語でプログラムを書…

問題追加

卒業を追加しました。

iterate

アルファベットの繰り上がりです。ZZ→AAAに対応したかったのですが良い方法が考えられませんでした。 import Char import List main = putStr $ concat $ List.intersperse ", " $ take 100 $ map toAlphaStr [1..] toAlphaStr :: Int -> String toAlphaStr …

型で失敗

アレイのuniqです。 ar = [3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9] main = print $ uniq ar uniq :: [Int] -> [Int] uniq [] = [] uniq (x:xs) = x : (uniq $ filter (/= x) xs) 先頭から一つ取り出して、取り出したものと同じ数字を外すというやりか…