diff --git a/README.md b/README.md index 78b85ac..aab5c09 100644 --- a/README.md +++ b/README.md @@ -1,3 +1,7 @@ # Mind-Fuck -jesus fuck what is this \ No newline at end of file +jesus fuck what is this + +## ???-recurse.raku + +How are recursive function calls impacted by dynamic variables? diff --git a/dyn-recurse.raku b/dyn-recurse.raku new file mode 100755 index 0000000..79eeaa3 --- /dev/null +++ b/dyn-recurse.raku @@ -0,0 +1,19 @@ +#!/usr/bin/env raku + +use v6.d; + +sub plus-one { + $*number++; + + say $*number; + + return if 100 < $*number; + + plus-one; +} + +sub MAIN { + my Int $*number = 42; + + plus-one; +} diff --git a/lex-recurse.raku b/lex-recurse.raku new file mode 100755 index 0000000..67318d5 --- /dev/null +++ b/lex-recurse.raku @@ -0,0 +1,19 @@ +#!/usr/bin/env raku + +use v6.d; + +sub plus-one { + $number++; + + say $number; + + return if 100 < $number; + + plus-one; +} + +sub MAIN { + my Int $number = 42; + + plus-one; +}