結果
問題 |
No.83 最大マッチング
|
ユーザー |
|
提出日時 | 2025-08-24 01:37:38 |
言語 | Standard ML (MLton 20210117) |
結果 |
AC
|
実行時間 | 52 ms / 5,000 ms |
コード長 | 527 bytes |
コンパイル時間 | 4,054 ms |
コンパイル使用メモリ | 687,228 KB |
実行使用メモリ | 7,716 KB |
最終ジャッジ日時 | 2025-08-24 01:37:46 |
合計ジャッジ時間 | 5,046 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 10 |
ソースコード
fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) val () = let val n = readInt () fun print_1 0 = ignore () | print_1 x = ( print "1"; print_1 (x - 1) ) fun printAns () = ( if n mod 2 = 1 then print "7" else print "1"; print_1 ((n div 2) - 1) ) in ( printAns (); print "\n" ) end