結果
| 問題 | No.707 書道 | 
| コンテスト | |
| ユーザー |  6soukiti29 | 
| 提出日時 | 2018-06-29 23:44:01 | 
| 言語 | Nim (2.2.0) | 
| 結果 | 
                                CE
                                 
                            (最新) 
                                AC
                                 
                            (最初) | 
| 実行時間 | - | 
| コード長 | 659 bytes | 
| コンパイル時間 | 1,309 ms | 
| コンパイル使用メモリ | 65,472 KB | 
| 最終ジャッジ日時 | 2024-07-01 00:23:47 | 
| 合計ジャッジ時間 | 1,879 ms | 
| ジャッジサーバーID (参考情報) | judge4 / judge1 | 
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
            
            
            
            
            ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
/home/judge/data/code/Main.nim(7, 30) Error: type mismatch: got 'seq[int]' for 'map(split(readLine(stdin), {' ', '\t', '\v', '\r', '\n', '\f'}, -1), parseInt)' but expected 'tuple'
            
            ソースコード
import sequtils,strutils,math
var
    A = newSeq[string](0)
    H,W : int
    px,py : int
    ans : float64
(H, W) = stdin.readline.split.map(parseInt)
A.add("0")
for line in stdin.lines:
    A.add("0" & line & "0")
proc cul(a, b : int) : float64 =
    var
        r : int
        R : float64
    for x in 1..W:
        for y in 1..H:
            if A[y][x] == '1':
                r = (x - a) * (x - a) + (y - b) * (y - b)
                R += sqrt(r.float64)
    return R
ans = INF
for i in 1..H:
    ans = min(ans, cul(0, i))
    ans = min(ans, cul(W + 1, i))
for i in 1..W:
    ans = min(ans, cul(i, 0))
    ans = min(ans, cul(i, H + 1))
    
echo ans
            
            
            
        