結果

問題 No.141 魔法少女コバ
ユーザー OldBrid21501053
提出日時 2019-08-28 15:10:16
言語 Haskell
(9.10.1)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 347 bytes
コンパイル時間 3,648 ms
コンパイル使用メモリ 172,288 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-17 16:23:45
合計ジャッジ時間 5,628 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 93
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

diff # 

main :: IO ()
main = print =<< solve . (\[x, y] -> [x `div` gcd x y, y `div` gcd x y]) . map read . words <$> getLine

solve :: [Int] -> Int
solve [m, n] = f 0 m n

f :: Int -> Int -> Int -> Int
f a b c
  | b == c = a
  | b == 1 = a + c
  | c == 1 = a + b - 1
  | b > c = f (a + q) r c
  | otherwise = f (a + 1) c b
  where
    (q, r) = divMod b c
0