[B! euler] nfunatoのブックマーク

Computing the Euler totient function, part 1

nfunato 2019/05/09

math
euler

リンク

HaskellでProject Euler(Problem 58～60) | ザネリは列車を見送った

zaneli-eulerのisPrimeを修正。この変更をしないと今回のProbl em 58, 60 には使い物にならなかった。従来は、まず調べたい値までの素数の全リストをprimes関数を使用して作っていたが、それでは速度的に厳しかった。調べ方がザルのような気もしたが、奇数のリストの中に割り切れる値が無いかを調べるほうが格段に速い。まずspiralDiagonalsで渦巻きの対角線上の数値と、その時点での辺の長さを持つ無限リストを作っている。 > take 3 spiralDiagonals [(3,[3,5,7,9]),(5,[13,17,21,25]),(7,[31,37,43,49])] その無限リストに対してsearchで条件に合うものを探す。対角線上の値をdに加算していき、(length nsとしているが全て4なのは分かっているので固定値でも良かったかも) その中の

nfunato 2018/04/22

リンク

Learn Clojure with Project Euler

nfunato 2017/02/19

リンク

project-euler/ocaml at master · ralphrecto/project-euler

nfunato 2016/09/28

ocaml
euler

リンク

https://github.com/ocaml-batteries-team/batteries-included/tree/master/examples/euler

nfunato 2016/09/28

euler
ocaml

リンク

【Ruby】PythonプログラマーがRubyを触って感じたこと - 歩いたら休め

Python プログラマーというか、元々Python（ときどきR、C言語）で数値シミュレーションをしていた学生が、就職してRubyでWeb開発を行うにあたって勉強したことを書き連ねていくだけの記事です。もし自分と同じような立場の人（これから後輩としてもどんどん増えていくかも！）がいたら、「ここを押さえておけばRubyは問題なく書けるよ」と教えられるように書いておきます。というのも、レビューを行っていた先輩とのプログラミングのスキルとの開きがあり、先輩も私も「どこが分かってないのか説明できない」状態になってしまってお互いに困ってしまった経験があるからです。 RubyとPythonはよく似ているのですが、思想や見た目で違う部分が多く、片方を勉強するともう片方の理解も深まります。たまに2ちゃんねるのオカルト板である「見たことある世界によく似た異世界に迷い込んだ」みたいな感覚で、なかなか面白い経

nfunato 2016/09/23

リンク

99 Haskell Problems より、[31] でもその前に - Qiita

追記 Qiita の記事の中にすでにもっと早くてエレガントなコードを書いていらっしゃる記事を見つけました。 Haskell で「素数列」をつくる。なお、さらに元ネタはこちらだそうです。エラトステネスの小型高速遠心分離機コメントにも有りましたが、これらの実装も実はエラトステネスのふるいではなく（Haskell の遅延評価のせい？）いわゆる試し割りということになるそうですが、コードゴルフにも採用されてる位短くてかつ早いとなると、、、一見したところ何をしているか分からなかったのでちょっと紐解いてみます、以下本質的にはHaskell で「素数列」をつくる。からのコピペです、ちょっと型とか二乗とか改変していますが（手元の環境では違いが出ませんでしたが、もしかしたら高次の影響があるかも分かりません、掛け算の方が安価なのかも） Fast primes from http://qiita.com/

nfunato 2016/02/26

リンク

Haskellで無限個の無限リストをソートされた形で結合する - プログラムモグモグ

CodeforcesやProject Eulerの問題には、無限リストをうまく使うと綺麗に解くことができる問題がたくさんあります。数列の性質から探索範囲の上界を決めて解を探索することが多いのですが、きちんとした根拠を持って上界を決めることができることは少なく、余裕を持って十分に広い範囲で計算して解を求める解法がよく取られます。 Haskellの特徴である遅延評価とその洗練された糖衣構文を用いると、無限リストを簡単に扱うことができます。上界を適当に定める解法よりも、より宣言的で美しく、時に効率的なコードで同じ解を得ることができます。しかし、無限リストをきちんと、それも無限個の無限リストをきちんと扱うとなると、意外と苦労します。この記事では、無限個の無限リストをソートされた形で結合する方法について説明します。一般的な無限リストではなく、条件はかなり絞っていてます (そうでないと原理的

nfunato 2016/02/26

リンク

project euler problem 59 - Google 検索

2022/01/28 · 問題 59. XOR暗号 · 暗号文を3文字おきに3つのグループに分ける · 各々のグループa-zすべての文字のAsciiコードで複合 · 複合されたテキストの文字の出現 ...

nfunato 2015/12/12

"project euler problem 59"

euler

リンク

Problem 59 - Project Euler

nfunato 2015/12/12

euler

リンク

HaskellでProject Euler(Problem 52～54 補足) | ザネリは列車を見送った

Data.Function.onという、バシッと決まれば格好良さそうなやつを教わったのでバシッと決まる使いどころを探そう。そうか、splitOnを自作せずとも、スペース区切りの場合ならwordsがあった。 fromEnum (Rank 1) = fromEnum (Rank 13) + 1とすることでエースを13より大きい値として扱えるようにした。こういう場合、toEnumはどうするのが良いのだろう？何となく対称性を持たせてはみたが。また、sameRanks関数などを使ってワンペア・ツーペア・スリーカード・フルハウスなどを判定していたが、あらかじめ同じ数字ごとにグループ化して要素数でソートしておき、パターンマッチで役を判定できるようにしてみた。 Data.Ord.comparingを使って compare = comparing fromEnum、sortBy (flip $ c

nfunato 2015/05/22

リンク

Project EulerにGaucheで挑戦する話 - naoya_t@hatenablog

（この投稿はLisp Advent Calendar 2012の19日目の記事「Project EulerにGaucheで挑戦する話」の転載です） Lisp Advent Calendar 19日目担当の @naoya_t です。「昨晩@g000001さんと回転寿司屋でLispについて話した」（※実話）とかでもいいんですが、予告通りProject Eulerの話を書こうと思います。ちょっと投稿が遅くなりましたが、インド標準時（UTC+05:30；日本時間より3時間半遅れています）でぎりぎり19日ということでお許しください。はじめに本記事では、特定の問題の解答や、それを導くプログラムはProject Eulerの参加規約に抵触するため掲載しません。 Project Eulerとは http://projecteuler.net/ 偉大な数学者レオンハルト・オイラーの名を冠する`Pro