結果

問題 No.637 X: Yet Another FizzBuzz Problem
コンテスト
ユーザー tak
提出日時 2018-03-26 23:58:27
言語 F#
(F# 4.0)
結果
AC  
実行時間 343 ms / 1,000 ms
コード長 366 bytes
コンパイル時間 12,929 ms
コンパイル使用メモリ 190,232 KB
実行使用メモリ 34,780 KB
最終ジャッジ日時 2024-06-28 19:02:25
合計ジャッジ時間 25,209 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 30
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (272 ms)。
MSBuild のバージョン 17.9.6+a4ecab324 (.NET)
  main -> /home/judge/data/code/bin/Release/net8.0/main.dll
  main -> /home/judge/data/code/bin/Release/net8.0/publish/

ソースコード

diff # 

open System

let (|FizzBuzz|Fizz|Buzz|Num|) n =
  match n%3,n%5 with
  | 0,0 -> FizzBuzz
  | 0,_ -> Fizz
  | _,0 -> Buzz
  | _   -> Num n
  
let strLen x =
  match x with
  | FizzBuzz    -> 8
  | Fizz | Buzz -> 4
  | Num n       -> n.ToString().Length
  
Console.ReadLine().Split() 
|> Array.map (int)  
|> Array.fold (fun acc x -> acc + strLen(x)) 0
|> printfn "%i"
0