June 2018 Update

Task/Introspection/Icon/introspection.icon

@@ -4,8 +4,8 @@ procedure main(A)
     if older(11,7) then stop("Must have version >= 11.7!")
     bloop := -5         # global variable
     floop := -11.3      # local variable
-    write(proc("abs")(variable("bloop"))
-    write(proc("abs")(variable("floop"))
+    write(proc("abs")(variable("bloop")))
+    write(proc("abs")(variable("floop")))
 end
 
 procedure older(maj,min)

Task/Introspection/Julia/introspection.julia

@@ -1,5 +1,11 @@
-julia> VERSION
-v"0.3.2"
+@show VERSION
+VERSION < v"0.4" && exit(1)
 
-julia> VERSION > v"0.3.1"
-true
+if isdefined(:bloop) && !isempty(methods(abs))
+    @show abs(bloop)
+end
+
+a, b, c = 1, 2, 3
+vars = filter(x -> eval(x) isa Integer, names(Main))
+println("Integer variables: ", join(vars, ", "), ".")
+println("Sum of integers in the global scope: ", sum(eval.(vars)), ".")

Task/Introspection/Perl-6/introspection.pl6

@@ -1,4 +1,4 @@
-use v6.0;   # require Perl 6.0
+use v6;   # require Perl 6
 
 my $bloop = -123;