Algebraic data types: Difference between revisions

Content added Content deleted
Line 889: Line 889:
'R';'';y;a:
'R';'';y;a:
:
:
if. 0=#y do. 'R';y;x;<y
if. 0=#y do. insert x
elseif. 0=L.y do. x insert 'R';'';y;a:
elseif. 0=L.y do. x insert insert y
else.
else.
'C e K w'=. y
'C e K w'=. y