Project Euler -- 欧拉题集 F#及Haskell 版 - No.5, No.6
来源:互联网 发布:八匹马网络加速器官网 编辑:程序博客网 时间:2024/06/04 17:46
No5.
2520 is the smallest number that can be divided by each of the numbers from 1 to 10 without any remainder
What is the smallest positive number that is evenly divisible by all of the numbers from 1 to 20?
---------------------------------------------------------------------------------------------------------------------------------------------------
F#:
let rec gcd x y = if y = 0UL then x
else gcd y (x % y)
let scm x y = ((x*y):uint64) / ((gcd x y) : uint64)
let scmN n = List.fold scm 1UL [2UL..n]
let anwser5 = scmN 20UL
Haskell:
gcd1 x y = if x `mod` y == 0 then y
else gcd x (abs $ x-y)
scm x y = (x*y) `div` gcd1 x y
scmN n = foldl scm 1 [2..n]
anwser5 = scmN 20
Answer: 232792560
后语: 求N个数的最小公倍数。
F# 坑爹了,用int过程中会溢出,改用UL。
No6.
The sum of the squares of the first ten natural numbers is,
12 + 22 + ... + 102 = 385
The square of the sum of the first ten natural numbers is,
(1 + 2 + ... + 10)2 = 552 = 3025
Hence the difference between the sum of the squares of the first ten natural numbers and the square of the sum is 3025 − 385 = 2640.
Find the difference between the sum of the squares of the first one hundred natural numbers and the square of the sum.
Haskell:
-- 1^2+2^2+3^2+...+n^2=n(n+1)(2n+1)/6
-- (1+2+...+n)^2 = (1+n)^2*n^2/4
answer6 = b - a
where a = sum . map ( ^2 ) $ [1..100]
b = flip (^) 2 (sum [1..100])
F#:
略;
答案:25164150
后语: 无聊的一道题。
- Project Euler -- 欧拉题集 F#及Haskell 版 - No.5, No.6
- Project Euler -- 欧拉题集 F#(Fsharp)及Haskell 版 - No.1, No.2
- Project Euler -- 欧拉题集 F#(Fsharp)及Haskell 版 - No.3, No.4
- Project Euler -- 欧拉题集 F#及Haskell 版 - No.7, No.8
- Project Euler -- 欧拉题集 F#及Haskell 版 - No.9, No.10
- Project Euler. No.1
- <MEMORY>Project Euler NO.12
- for no f test
- GitLab: No such project
- Project Euler 1-6
- Euler Project Problem 6
- Project Euler - Problem 6
- Project Euler-6
- Project Euler problem 6
- Project Euler 6~10
- Project Euler 6
- Project Euler - 6
- Project Euler Problem 6
- 关于pppd移植和3g功能
- resources的使用
- Apache 网站压力测试工具 ab
- 演进式例解控制反转(IoC)、依赖注入(DI)之一
- 黑马程序员_面向对象学习总结(一)
- Project Euler -- 欧拉题集 F#及Haskell 版 - No.5, No.6
- 有关视频采集的
- 水仙花数
- Linux文件查找命令find,xargs结合的妙用
- PHP 实现爱查快递接口
- 用VC++制作QQ自动登陆软件
- MySQL登陆问题总结
- nginx的一些问题
- 指针常量与常量指针