7 lines
290 B
Standard ML
7 lines
290 B
Standard ML
print "Enter a string: ";
|
|
let val str = valOf (TextIO.inputLine TextIO.stdIn) in (* note: this keeps the trailing newline *)
|
|
print "Enter an integer: ";
|
|
let val num = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) in
|
|
print (str ^ Int.toString num ^ "\n")
|
|
end
|
|
end
|