all tasks

Task/Variables/Forth/variables-1.fth

@@ -0,0 +1,3 @@
+: hypot ( a b -- a^2 + b^2 )
+  LOCALS| b a |            \ note: reverse order from the conventional stack comment
+  b b * a a * + ;

Task/Variables/Forth/variables-2.fth

@@ -0,0 +1,2 @@
+: hypot { a b -- a^2 + b^2 }      \ text between "--" and "}" remains commentary
+  a a * b b * + ;

Task/Variables/Forth/variables-3.fth

@@ -0,0 +1,2 @@
+: length { F: a F: b F: c -- len }     \ floating point locals
+  a a F* b b F* F+ c c F* F+ FSQRT ;