Sync

Task/Variable-size-Get/Perl-6/variable-size-get.pl6

@@ -0,0 +1,12 @@
+# Textual strings are measured in characters (graphemes)
+my $string = "abc";
+
+# Arrays are measured in elements.
+say $string.chars;     # 3
+my @array = 1..5;
+say @array.elems;      # 5
+
+# Buffers may be viewed either as a byte-string or as an array of elements.
+my $buffer = '#56997; means "four dragons".'.encode('utf8');
+say $buffer.bytes;     # 26
+say $buffer.elems;     # 26

Task/Variable-size-Get/Racket/variable-size-get.rkt

@@ -0,0 +1,5 @@
+#lang racket
+(require ffi/unsafe)
+(define-syntax-rule (sizes t ...)
+  (begin (printf "sizeof(~a) = ~a\n" 't (ctype-sizeof t)) ...))
+(sizes _byte _short _int _long _llong _float _double)