September Morn Update

Task/Variable-size-Set/Free-Pascal/variable-size-set.free

@@ -0,0 +1,3 @@
+type
+	{$packEnum 4}
+	enum = (x, y, z);

Task/Variable-size-Set/Julia/variable-size-set.julia

@@ -0,0 +1,10 @@
+types = [Bool, Char, Int8, UInt8, Int16, UInt16, Int32, UInt32, Int64, UInt64]
+
+for t in types
+    println("For type ", lpad(t,6), " size is $(sizeof(t)) 8-bit bytes, or ",
+        lpad(string(8*sizeof(t)), 2), " bits.")
+end
+
+primitive type MyInt24 24 end
+
+println("\nFor the 24-bit user defined type MyInt24, size is ", sizeof(MyInt24), " bytes.")

Task/Variable-size-Set/Pascal/variable-size-set.pascal

@@ -1,8 +1,2 @@
-var
-  a: byte;     // 1 byte
-  b: word;     // 2 byte
-  c: cardinal; // 4 byte
-  d: QWord;    // 8 byte
-
-  x: real;   // 4 byte
-  y: double; // 8 byte
+type
+	correctInteger = integer attribute (size = 42);

Task/Variable-size-Set/Phix/variable-size-set.phix

@@ -0,0 +1,7 @@
+include mpfr.e                              -- requires 0.8.0+
+string nines = repeat('9',1001)             -- +1 for the "3."
+mpz ndp = mpz_init(nines)                   -- mpz_init(nines,3326) would be identical
+integer precision = mpz_sizeinbase(ndp,2)   -- 3326
+mpfr pi = mpfr_init(0,precision)            -- or just hard-code that 3326
+mpfr_const_pi(pi)
+mpfr_printf(1,"PI with 1000 decimals: %.1000RDf\n\n",pi)