September Morn Update

Task/Infinity/Clojure/infinity.clj

@@ -0,0 +1,3 @@
+##Inf  ;; same as Double/POSITIVE_INFINITY
+##-Inf ;; same as Double/NEGATIVE_INFINITY
+(Double/isInfinite ##Inf) ;; true

Task/Infinity/Ol/infinity.ol

@@ -0,0 +1,8 @@
+(define (infinite? x) (or (equal? x +inf.0) (equal? x -inf.0)))
+
+(infinite? +inf.0) ==> #true
+(infinite? -inf.0) ==> #true
+(infinite? +nan.0) ==> #false
+(infinite? 123456) ==> #false
+(infinite? 1/3456) ==> #false
+(infinite? 17+28i) ==> #false

Task/Infinity/Visual-Basic/infinity.vb

@@ -1,7 +1,27 @@
-Dim PlusInfinity as Double
-Dim MinusInfinity as Double
-Dim IndefiniteNumber as Double
-On Error Resume Next
-PlusInfinity = 1 / 0
-MinusInfinity = -1 / 0
-IndefiniteNumber = 0 / 0
+Option Explicit
+
+Private Declare Sub GetMem8 Lib "msvbvm60.dll" _
+  (ByVal SrcAddr As Long, ByVal TarAddr As Long)
+
+Sub Main()
+Dim PlusInfinity As Double
+Dim MinusInfinity As Double
+Dim IndefiniteNumber As Double
+    On Error Resume Next
+    PlusInfinity = 1 / 0
+    MinusInfinity = -1 / 0
+    IndefiniteNumber = 0 / 0
+    Debug.Print "PlusInfinity     = " & CStr(PlusInfinity) _
+      & "  (" & DoubleAsHex(PlusInfinity) & ")"
+    Debug.Print "MinusInfinity    = " & CStr(MinusInfinity) _
+      & " (" & DoubleAsHex(MinusInfinity) & ")"
+    Debug.Print "IndefiniteNumber = " & CStr(IndefiniteNumber) _
+      & " (" & DoubleAsHex(IndefiniteNumber) & ")"
+End Sub
+
+Function DoubleAsHex(ByVal d As Double) As String
+Dim l(0 To 1) As Long
+GetMem8 VarPtr(d), VarPtr(l(0))
+DoubleAsHex = Right$(String$(8, "0") & Hex$(l(1)), 8) _
+            & Right$(String$(8, "0") & Hex$(l(0)), 8)
+End Function