Anonymous user
Increment a numerical string: Difference between revisions
→[[Increment numerical string#ALGOL 68]]
No edit summary |
|||
Line 8:
S := Ada.Strings.Fixed.Trim(Source => Integer'Image(Integer'Value(S) + 1), Side => Ada.Strings.Both);
</lang>
=={{header|ALGOL 68}}==
{{works with|ALGOL 68|Standard - no extensions to language used}}
{{works with|ALGOL 68G|Any - tested with release mk15-0.8b.fc9.i386}}
<!-- {{not works with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release 1.8.8d.fc9.i386 - associate missing from this release}} -->
<pre>
STRING s := "12345"; FILE f; INT i;
associate(f, s); get(f,i);
i+:=1;
s:=""; reset(f); put(f,i);
print((s, new line))
</pre>
Output:
<pre>
+12346
</pre>
=={{header|BASIC}}==
| |||