From bdf71faad059ba7deb44a983598ad63de43a5e67 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Thu, 4 Aug 2022 20:42:12 -0300 Subject: Decided on less cryptic keywords --- input.stk | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'input.stk') diff --git a/input.stk b/input.stk index 8b4f68f..c392c0e 100644 --- a/input.stk +++ b/input.stk @@ -1,3 +1,2 @@ -Loops ten times asking for user input. If the input is 0 or nothing, print 69420, else print back the number from the input. -10 [ 0 1 , [ ~ . ! -- ] [ 69420 . ! ] -- ] +10 [ 0 1 read_number [ dup print_number newline pop -- ] [ 69420 print_number newline pop ] -- ] -- cgit v1.2.3