結果
問題 | No.401 数字の渦巻き |
ユーザー |
![]() |
提出日時 | 2016-08-25 23:34:36 |
言語 | F# (F# 4.0) |
結果 |
AC
|
実行時間 | 352 ms / 2,000 ms |
コード長 | 998 bytes |
コンパイル時間 | 14,217 ms |
コンパイル使用メモリ | 201,748 KB |
実行使用メモリ | 35,540 KB |
最終ジャッジ日時 | 2024-11-08 03:18:25 |
合計ジャッジ時間 | 19,258 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 30 |
コンパイルメッセージ
復元対象のプロジェクトを決定しています... /home/judge/data/code/main.fsproj を復元しました (347 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/
ソースコード
open Systemlet InRange ll ul i j = ( ll <= i ) && ( i < ul ) && ( ll <= j ) && ( j < ul )type Sol() =member this.Solve() =let N = stdin.ReadLine() |> intlet dx = [1;0;-1;0]let dy = [0;1;0;-1]let rec f i j t n (a:int [] [] ) =//printfn "%d %d %d %d" i j t nif a.[i].[j] <> 0 then () elsea.[i].[j] <- nlet ny = i + dy.[t]let nx = j + dx.[t]if (InRange 0 N ny nx) && (a.[ny].[nx] = 0) then f ny nx t (n+1) aelif N <> 1 then f (i + dy.[(t+1)%4]) (j + dx.[(t+1)%4]) ((t+1)%4) (n+1) alet A = Array.zeroCreate<int[]> Nfor i = 0 to (N-1) do A.[i] <- Array.zeroCreate<int> Nf 0 0 0 1 Afor i = 0 to (N-1) do String.Join(" ", (A.[i] |> Array.map (sprintf "%03d"))) |> printfn "%s"()let mySol = new Sol()mySol.Solve()