バッチファイルでProject Euler(64)

Problem 28

もうちょっとプログラミングの問題らしくしましょう。1からはじまって、2増して3、2増して5。2増してを4回繰り返します。次に4増して同じく4回繰り返します。このようにして対角線上の数を求めて和を取ればよいです。

@echo off

setlocal enabledelayedexpansion
set /a N = 3
set /a s = 1
set /a m = 1
set /a max_d = %N% * 2
for /L %%d in (2, 2, %max_d%) do (
    for /L %%k in (1, 1, 4) do (
        set /a m += %%d
        set /a s += !m!
    )
)
echo %s%