Towers of Hanoi: Difference between revisions

m
→‎pictorial moves: changed characters to draw boxes to a more suitable name.
m (→‎pictorial moves: added whitespace and comments, elided some unneeded code. .)
m (→‎pictorial moves: changed characters to draw boxes to a more suitable name.)
Line 4,330:
ebcdic= ('f2'x==2) /*determine if EBCDIC or ASCII machine.*/
 
if ebcdic then do; bar= 'bf'x; ar= "df"x; boxendither= 'db9f9caf'x; down= "9a"x
tr= 'bc'x; bl= "ab"x; br= 'bb'x; vert= "fa"x; tl= 'ac'x
end
else do; bar= 'c4'x; ar= "10"x; boxendither= 'b0b1b2db'x; down= "19"x
tr= 'bf'x; bl= "c0"x; br= 'd9'x; vert= "b3"x; tl= 'da'x
end
 
verts= vert || vert; Tcorners= tl || tr; box = left(boxendither, 1)
downs= down || down; Bcorners= bl || br; boxChars= boxendither || @abc
$.= 0; $.1= N; k= N; kk= k + k