Problem 247

247 Squares under a hyperbola

x=1, y=0, y=1/x の中に次々と最大の正方形を詰めていく問題．

一見，複雑だが…

一つ，正方形を詰めると，残りの領域の分割数が丁度一つ増えることに着目．

再帰関数を構成した．

haskellのコードは以下（パスワードは問題の答え）．

こういう形にした理由は以下で．

幸か不幸か，このブログ，”project euler” + 問題番号でググルと結構上位に来てしまう．

はじめは，問題数も少なかったし，haskellだし，日本語だし，問題ないと思っていたが，

どうやら，そうではない様子．

答えが簡単に検索できてしまうのは，

Project Euler 的にも良くないし，僕もそれでは，Project Eulerの魅力が半減してしまうと思う．

では，コードを載せなければ良いかというと，個人的には良くない．

なせなら，コードを載せていた理由の一つはhaskell普及のため，haskellに関心を持ってもらい，haskell スゴイよって思ってもらうこと．

関数型言語は強力だって，宣伝したかった．

Project Euler のフォーラムに投稿すれば良いって意見もあるけど，

フォーラムは100件までしか投稿できない．

つまり，自分のhaskellのコードがその1/100を占める価値があるのか，という問題がある．

あと，言語が英語だし（これは，単に英語能力の問題だが）．

という以上の理由から，こういう形になった．

一番やりたかったのは，記事別にパスワードで公開設定できたら良かった．

それが出来れば，外部にファイルをアップロードする必要ないし．

しかし，現在はてなにそのような機能はないようだ．

コンテンツ