Sudoku/REXX: Difference between revisions

m
→‎$SUDOKU.REX: changed the output from a intermediate display output (two places).
(→‎$SUDOKU.REX: added the original purpose of the REXX program.)
m (→‎$SUDOKU.REX: changed the output from a intermediate display output (two places).)
Line 555:
!.r.pc=new /*store new value into old.*/
foundmatch=1 /*indicate match was found.*/
call $t !fn 'is removing a' L old "from" drc(r,pc,old),
'because of a match at' drc(r,c,qq)
if length(new)==1 then do /*reduce if L=1*/
Line 578:
!.pr.c=new /*store new value into old.*/
foundmatch=1 /*indicate match was found.*/
call $t !fn 'is removing a' L old "from" drc(pr,c,old),
'because of a match at' drc(r,c,qq)
if length(new)==1 then do /*reduce if L=1*/