10 lines
155 B
Text
10 lines
155 B
Text
|
proc {PrintParity X}
|
||
|
|
if {IsEven X} then
|
||
|
|
{Show even}
|
||
|
|
elseif {IsOdd X} then
|
||
|
|
{Show odd}
|
||
|
|
else
|
||
|
|
{Show 'should not happen'}
|
||
|
|
end
|
||
|
|
end
|