17 lines
445 B
Text
17 lines
445 B
Text
cin sto mystring
|
|
#s dec mystring @mystring sprintnl
|
|
#g ."The length of the input is: " @mystring~ print ." characters.\n"
|
|
mylist @mystring 32 strtolist
|
|
."Quantity of the items: " mylist~ printnl
|
|
mylist~ mem sto nums
|
|
mylist 10 ![
|
|
."Item #" [:] #g print ." = " [|] sprintnl
|
|
@nums [:] [|] #s (#g) [^] ]
|
|
."Sum = "
|
|
0 #g mylist~ {| @nums {} [] + |}
|
|
printnl
|
|
@nums free @mystring free @mylist free
|
|
end
|
|
{ „mystring” }
|
|
{ „mylist” }
|
|
{ „nums” }
|