fork download

copy

 
local MyMap in
MyMap = proc {$ Ls F R}
case Ls of
’|’(1:H 2:T) then local Res in
{F H Res}
local RestAns in
R=’|’(1:Res 2:RestAns)
{MyMap T F RestAns}
end
end
else R=nil
end
end
{MyMap MyList MyFun MyRes}
end

Mozart Compiler 1.4.0 (20080704) playing Oz 3

%%% feeding file prog.oz

%************************** lexical error ***********************
%**
%** illegal character
%**
%** in file "./prog.oz", line 5, column 1

%************************** lexical error ***********************
%**
%** illegal character
%**
%** in file "./prog.oz", line 5, column 2

%************************** lexical error ***********************
%**
%** illegal character
%**
%** in file "./prog.oz", line 5, column 5

%************************** lexical error ***********************
%**
%** illegal character
%**
%** in file "./prog.oz", line 5, column 6

%*************************** parse error ************************
%**
%** syntax error, unexpected '(', expecting T_then
%**
%** in file "./prog.oz", line 5, column 7
%** ------------------ rejected (5 errors)

Standard output is empty