25:I[213999,["/_next/static/chunks/16a29cd6304f2411.js","/_next/static/chunks/1f26200cd6d05dff.js","/_next/static/chunks/c3f9d80d717636c8.js","/_next/static/chunks/bc1d040bf8e65c58.js","/_next/static/chunks/debb321617d7ca1e.js","/_next/static/chunks/f64101a76fad54b1.js","/_next/static/chunks/94fbb7fa806ad56b.js","/_next/static/chunks/db9978aba23a417e.js","/_next/static/chunks/14f8985e1634915f.js","/_next/static/chunks/aec63f7bf4bac799.js","/_next/static/chunks/2ed14a01cc7b5d05.js","/_next/static/chunks/e95f3e95128ec76b.js","/_next/static/chunks/7bba671d0b05dc6c.js","/_next/static/chunks/882a0401193a3b5d.js","/_next/static/chunks/abd3194e107ec3ca.js"],"AcademyWorkspaceWrapper"] 28:I[422650,["/_next/static/chunks/0306128cacc23787.js"],"IconMark"] 26:T448,module SpiralMatrix let array2DToList array = [ for x in Array2D.base1 array .. Array2D.length1 array - 1 -> [ for y in Array2D.base2 array .. Array2D.length2 array - 1 -> array.[x, y] ] ] let spiralMatrix size = let numbersToPlace = size * size let mutable spiral = Array2D.create size size 0 let mutable currentSpiralValue = 1 let mutable firstPivot = 0 let mutable secondPivot = size - 1 let setValue x y = spiral.[x, y] <- currentSpiralValue currentSpiralValue <- currentSpiralValue + 1 while currentSpiralValue <= numbersToPlace do [firstPivot .. secondPivot] |> List.iter (fun i -> setValue firstPivot i) [firstPivot + 1.. secondPivot] |> List.iter (fun i -> setValue i secondPivot) [secondPivot - 1 .. -1 .. firstPivot] |> List.iter (fun i -> setValue secondPivot i) [secondPivot - 1 .. -1 .. firstPivot + 1] |> List.iter (fun i -> setValue i firstPivot) firstPivot <- firstPivot + 1 secondPivot <- secondPivot - 1 array2DToList spiral27:T482,module SpiralMatrixTests open FsUnit.Xunit open Xunit open SpiralMatrix [] let ``Empty spiral`` () = spiralMatrix 0 |> should be Empty [] let ``Trivial spiral`` () = spiralMatrix 1 |> should equal [[1]] [] let ``Spiral of size 2`` () = spiralMatrix 2 |> should equal [ [1; 2]; [4; 3] ] [] let ``Spiral of size 3`` () = spiralMatrix 3 |> should equal [ [1; 2; 3]; [8; 9; 4]; [7; 6; 5] ] [] let ``Spiral of size 4`` () = spiralMatrix 4 |> should equal [ [1; 2; 3; 4]; [12; 13; 14; 5]; [11; 16; 15; 6]; [10; 9; 8; 7] ] [] let ``Spiral of size 5`` () = spiralMatrix 5 |> should equal [ [1; 2; 3; 4; 5]; [16; 17; 18; 19; 6]; [15; 24; 25; 20; 7]; [14; 23; 22; 21; 8]; [13; 12; 11; 10; 9] ]