bassguitarbill/aoc_omni
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects 1 Releases Wiki Activity

Fix stu[id fortran bug

Browse Source
This commit is contained in:
Bill Rossi 2023-12-24 21:46:02 -05:00
parent a9ef0dce69
commit 708e2caf3c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/2015/1/problem.f90
View File

@ -11,10 +11,10 @@ program problem
read(unit) input read(unit) input
do i=1, input_file_size do i=0, input_file_size - 1
if (input(i:i) == "(") then if (input(i:i) == "(") then
floor = floor + 1 floor = floor + 1
else else if (input(i:i) == ")") then
floor = floor - 1 floor = floor - 1
end if end if
end do end do