RosettaCodeData/Task/Dynamic-variable-names/Quackery/dynamic-variable-names.quac...

18 lines
390 B
Plaintext

[ say "The word "
dup echo$
names find names found iff
[ say " exists." ]
else
[ say " does not exist." ] ] is exists? ( $ --> )
[ $ "Please enter a name: " input
cr
dup exists?
cr cr
dup say "Creating " echo$
say "..."
$ "[ stack ] is " over join quackery
cr cr
exists? cr ] is task ( --> )