0から1000までの0の数を数える

• 0から1000までの0の数を数える - present

(use srfi-1)
(use srfi-13)

(string-count (string-concatenate (map x->string (iota 1001))) #\0)

上のは真面目に考えたもの。こっちっが最初に何も考えずに書いたもの。

(use srfi-1 :only (iota))

(let1 zeros (fold (^ (e acc)
                     (string-append
                      acc
                      (regexp-replace-all #/[1-9]/ (x->string e) "")))
                  "" (iota 1001))
  (string-length zeros))

こういう小ぶりの問題好きです。というか、むしろこういうのが一番楽しいかもしれない。大きな問題も分解すればこういう小さな問題の集合なのかもしれないけども。いや、でも「全体は部分の総和にあらず」とも言いますか。


検索したらいっぱいった。

• 0 から 1000 までに含まれる ‘0’ を数える « 渋木宏明 Weblog
• 0から1000の0の数を数える - FloralCompany.log
• 0から1000までの0～9の数を数える
• AWK Users JP :: 0 〜 1000 に含まれる 0 をカウントする
• 0～1000に含まれる0をカウントする(Gauche) - Gemmaの日記
• 0から1000までに含まれる0をカウントする - (rubikitch loves (Emacs Ruby CUI Books))
• 0～1000に含まれる0をカウントする - (rubikitch loves (Emacs Ruby CUI Books))
• 0から1000までに含まれる0をカウントする - marcy_oの日記
• 0～1000に含まれる0をカウントする - みずぴー日記