aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Long-year/Batch-File/long-year.bat Normal file
View file

@ -0,0 +1,8 @@
@echo off
setlocal enableextensions enabledelayedexpansion
for /f %%v in ('set _ 2^>nul') do set "%%v="
set "p=((X)+((X)/4)-((X)/100)+((X)/400))%%7"
(for /l %%i in (2000,1,2100) do (
set /a "func=^!(!p:X=%%i!-4) | ^!(!p:X=%%i-1!-3)"
if !func! equ 1 set /p=%%i
))<nul