No.1 ~ 10までのコードをペタペタしていきます.
No.1 Multiples of 3 and 5
1000以下のx
について,x mod 5 == 0
, x mod 3 == 0
の数の合計を求める
check :: Int -> [Int]
check a =
if (a `mod` 3 == 0 || a `mod` 5 == 0)
then a : (check $ a + 1)
else check $ a + 1
main = do
print $ sum . takeWhile (\x -> x < 1000) $ check 1
やってることは,check
で無限リストを作成して,takeWhile
で1,000以下のものを取ってくる.その後,合計を求めて終わりです.
No.2 Even Fibonacci numbers
フィボナッチから偶数を取り出して,合計を求める.
main = do
let fibo = 0 : 1 : zipWith (\x y -> x + y) (tail fibo) fibo
print $ sum $ filter even $ takeWhile (\x -> x < 4000000) fibo
fibo
というフィボナッチの無限リストを作成し,それからtakeWhile
してsum
するだけ.
No.3 Largest prime factor
600851475143の最大の素因数を求める.
factors :: Integer -> [Integer]
factors n = [x | x <- [1..n], n `mod` x == 0]
factorization :: Integer -> [Integer]
factorization 1 = []
factorization x = v : factorization (x `div` v)
where
v = (factors x) !! 1
main = do
print $ factorization 600851475143
以下のブログのものを利用しました.ありがとうございます🙇♂️
tnomura9.exblog.jp
No.4 Largest palindrome product
100..999までの数字をかけて,回文となる数値を求める.
reverseInt :: Integer -> Integer
reverseInt x = read . reverse . show $ x
check :: Integer -> Integer
check a = if a == reverseInt a then a else 0
main = do
let initList = [100,101..999]
print . maximum . fmap check $ (*) <$> initList <*> initList
数字を文字列にして反転して数値化し,元の数値と比較する.等しければ,その数値を返す.あとはmax
とって終わり.
No.5 Smallest multiple
1..20までの最大公約数を求める問題.
check :: [Integer] -> Integer
check [] = 1
check (x:xs) = lcm (x) (check xs)
main = do
print $ check [1..20]
List
を回して,lcm
(最大公約数を求める関数)するだけ.
No. 6 Sum square difference
(a ^ 2 + b ^ 2... ) - (a + b ...) ^ 2
の解を求める.範囲は1..100
.
main = do
let sumNum = sum [1..100]
let a = (*) sumNum sumNum
let b = sum $ fmap (\x -> x * x) [1..100]
print $ a - b
a
が各要素を足したあと最後に二乗した数値.そしてb
が各要素を二乗していき,最後に合計を求めた数値.最後にa - b
をして終わり.
No.7 10001st prime
10001番目の素数を求める.
import Data.Numbers.Primes
main = do
print . last . take 10001 $ wheelSieve 1
素数を求める時には,Data.Numbers.Primes
パッケージを利用しました.
インストールする必要があるので,stack install primes
でインストールしてください.
No.8 Largest product in a series
与えられた数値の隣り合う13桁の数を取り出していき,その13個の数の積の最大を求める.
calc :: [Integer] -> Integer
calc (a:b:c:d:e:f:g:h:i:j:k:l:m:[]) = a * b * c * d * e * f * g * h * i * j * k * l * m
calc otherwise = 0
check :: [String] -> [Integer]
check xss@(a:b:c:d:e:f:g:h:i:j:k:l:m:xs) = (calc $ fmap read [a,b,c,d,e,f,g,h,i,j,k,l,m]) : (check $ tail xss)
check otherwise = []
main = do
print $ maximum $ check $ fmap (:[]) $ show 7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450
なかなかゴリ押ししている感じがあったりします.まず与えられた数値をリストにして,一つずつ右にずらしていき13個ずつ取って行く.
あとはそれらの最大をとって終わり.
No.9 Special Pythagorean triplet
ピタゴラスの定理が成り立つa, b, c
をとり,a + b + c = 1000
になるものを求める.
main = do
print $ [z | z <- (\x y -> let c = sqrt ((x * x) + (y * y))
in if x < y && x + y + c == 1000.0
then Just (x,y,c)
else Nothing) <$> [1..999] <*> [1..999], not (z == Nothing)] !! 0
ゴリ押しました.[1..999]
のリストを二つ与えて,条件にあったもののみをJust
に包んで返します.そしてリスト内包表記でNothing
を弾きます.(多分もっといい方法ありそう)
No.10 Summation of primes
2,000,000以下の素数の合計を求める.
import Data.Numbers.Primes
main = do
print $ sum $ takeWhile (\x -> x < 2000000) $ wheelSieve 1
特に言うことがない
まとめ
Haskellの練習がてら少しやったのですが,Haskellのすごさを色々と思い知り感動させてもらいました.また隙間時間に解いて行きます.🙇♂️