Changeset 10003

Timestamp:

04/17/06 22:18:01 (3 years ago)

Author:

yiyihu

Message:

Perl 6 version of round_random, round_up, round_down implemented.
Now, Math::Basic rounding suite according to
http://www.pldesignline.com/howto/showArticle.jhtml?articleID=175801189
almost finished.

Files:

• misc/S29_round.pl (modified) (2 diffs)

misc/S29_round.pl

@@ -59 +59 @@
 
 our Int multi Num::round_random (Num $x) {
-        ...
+        my @l = (
+                { $^a.round_half_up: symmetrical => $^b },
+                { $^a.round_half_down: symmetrical => $^b },
+                { $^a.round_half_even },
+                { $^a.round_half_odd },
+
+#               { $^a.round_half_alternate },
+#               { $^a.round_half_random },
+
+                { $^a.round_half_ceiling },
+                { $^a.round_toward_zero },
+                { $^a.round_away_from_zero },
+
+#               { $^a.round_up: symmetrical => $^b },
+#               { $^a.round_down: symmetrical => $^b },
+                );
+        my $sym_flag = (int(rand() * 10)) % 2;
+        my $selector = (int(rand() * 100)) % @l.elems;
+
+        @l[$selector]($x, $sym_flag);
 }
 
@@ -86 +105 @@
 }
 
-our Int multi Num::round_up (Num $x) {
-        ...
+our Int multi Num::round_up (Num $x, int $symmetrical? = 1) {
+        $symmetrical ?? $x.round_away_from_zero
+                !! $x.round_ceiling
 }
 
-our Int multi Num::round_down (Num $x) {
+our Int multi Num::round_down (Num $x, int $symmetrical? = 1) {
+        $symmetrical ?? $x.round_toward_zero
+                !! $x.round_floor
+}
+
+our Int multi Num::truncation (Num $x) {
         ...
 }