RosettaCodeData/Task/15-puzzle-solver/Fortran/15-puzzle-solver-1.f
2023-07-01 13:44:08 -04:00

5 lines
106 B
Forth

IF (NR.EQ.4) THEN
code specialised for NR = 4
ELSE IF (NR.EQ.3) THEN
code specialised for NR = 3
END IF