Family Day update

2020-02-17 23:21:07 -08:00 · 2020-02-17 23:21:07 -08:00 · 9ad63ea473
commit 9ad63ea473
parent aac6731f2c
2442 changed files with 39761 additions and 8255 deletions
--- a/Task/User-input-Text/Retro/user-input-text.retro
+++ b/Task/User-input-Text/Retro/user-input-text.retro
@ -1,6 +1,4 @@
-: example ( "- )
-  remapping off
-  "Enter a string: " puts 10 accept tib tempString
-  [ "Enter 75000: " puts getToken toNumber 75000 = cr ] until
-  "Your string was: '%s'\n" puts
-  remapping on ;
+:example ("-)
+  'Enter_a_string:_ s:put s:get s:keep
+  [ 'Enter_75000:_ s:put s:get-word s:to-number nl #75000 eq? ] until
+  'Your_string_was:_'%s'\n s:format s:put ;