@ゲー単走部

ローグライク雑記。変愚蛮怒、DCSSなど。

Haskell

マージソート

部分リストのうまい取り方がわからん merge :: [Int] -> [Int] -> [Int] merge [] ys = ys merge xs [] = xs merge (x:xs) (y:ys) | x <= y = x : merge xs (y:ys) | otherwise = y : merge (x:xs) ys mergesort :: [Int] -> [Int] mergesort [] = [] merges…

素数の列を返すプログラム、素数かどうか判定するプログラム

素数の列を返すプログラムを書いてみる。 def prime(n): # nまでの素数のリストを返す if n == 2: return [2] elif n > 2: array = [2] # 素数を集める for i in range(3, n + 1): # 3~nが素数かどうか for p in array: if i % p == 0: # 素数で割り切れた…