12 lines
263 B
FSharp
12 lines
263 B
FSharp
module _28
|
|
|
|
let sumNum =
|
|
let sideLength count =
|
|
seq {
|
|
for i in 1..(count/2) do
|
|
for l in 1..4 do
|
|
yield i * 2
|
|
}
|
|
sideLength 1001
|
|
|> Seq.scan ( fun sum item -> sum + item) 1
|
|
|> Seq.sum |