aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2023-09-01 09:35:06 -07:00
parent 61b93a2cd1
commit 5af6d93694
858 changed files with 20572 additions and 2082 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/User-input-Text/LDPL/user-input-text.ldpl Normal file
View file

@ -0,0 +1,9 @@
data:
myText is text
myNumber is number
procedure:
display "Enter some text: "
accept myText
display "Enter a number: "
accept myNumber

9
Task/User-input-Text/Maxima/user-input-text.maxima Normal file
View file

@ -0,0 +1,9 @@
/* String routine */
block(
s:read("enter a string"),
if stringp(s) then print(s,"is an actual string") else "that is not a string")$
/* Number routine */
block(
n:read("enter a number"),
if numberp(n) then print(n,"is an actual number") else "that is not a number")$