aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Detect-division-by-zero/COBOL/detect-division-by-zero.cobol Normal file
View file

@ -0,0 +1,4 @@
DIVIDE foo BY bar GIVING foobar
ON SIZE ERROR
DISPLAY "Division by zero detected!"
END-DIVIDE

5
Task/Detect-division-by-zero/D/detect-division-by-zero.d
View file

@ -28,14 +28,13 @@ if (isIntegral!T || isFloatingPoint!T) {
}
}
return format("%5s %s", format("%1.1g", cast(real)result), msg);
return format("%5s %s", format("%1.1g", real(result)), msg);
}
void main() {
writeln("Division with check:");
writefln("int 1/ 0: %s", divCheck(1, 0));
writefln("ubyte 1/ 0: %s",
divCheck(cast(ubyte)1, cast(ubyte)0));
writefln("ubyte 1/ 0: %s", divCheck(ubyte(1), ubyte(0)));
writefln("real 1/ 0: %s", divCheck(1.0L, 0.0L));
writefln("real -1/ 0: %s", divCheck(-1.0L, 0.0L));
writefln("real 0/ 0: %s", divCheck(0.0L, 0.0L));

1
Task/Detect-division-by-zero/Maple/detect-division-by-zero-1.maple Normal file
View file

@ -0,0 +1 @@
1/0; # Here is the default behavior.

6
Task/Detect-division-by-zero/Maple/detect-division-by-zero-2.maple Normal file
View file

@ -0,0 +1,6 @@
NumericEventHandler( ':-division_by_zero'
= proc() infinity; end proc ):
1/0;
NumericStatus(':-division_by_zero'); # We may check the status flag

10
Task/Detect-division-by-zero/Maple/detect-division-by-zero-3.maple Normal file
View file

@ -0,0 +1,10 @@
NumericEventHandler( ':-division_by_zero'
= proc()
WARNING("division by zero");
NumericStatus(':-division_by_zero'=false):
infinity;
end proc ):
1/0;
NumericStatus(':-division_by_zero');