A-M baby

Task/Introspection/Factor/introspection-1.factor

@@ -0,0 +1,9 @@
+: if-older ( n true false -- )
+    [ build > ] 2dip if ; inline
+
+: when-older ( n true -- )
+    [ ] if-older ; inline
+: unless-older ( n false -- )
+    [ [ ] ] dip if-older ; inline
+
+900 [ "Your version of Factor is too old." print 1 exit ] when-older

Task/Introspection/Factor/introspection-2.factor

@@ -0,0 +1,5 @@
+"bloop" search [
+    get [
+        "abs" search [ execute( n -- n' ) ] when*
+    ] [ 0 ] if*
+] [ 0 ] if*

Task/Introspection/Factor/introspection-3.factor

@@ -0,0 +1,7 @@
+USING: assocs formatting kernel math namespaces ;
+
+0 0
+global [
+    nip dup integer? [ + [ 1 + ] dip ] [ drop ] if
+] assoc-each
+"There are %d integer variables, the sum is %d\n" printf