17 lines
587 B
Text
17 lines
587 B
Text
#!/usr/local/bin/spar
|
|
pragma annotate( summary, "incstr" )
|
|
@( description, "Increment an integer number in a string" )
|
|
@( category, "tutorials" )
|
|
@( author, "Ken O. Burtch" )
|
|
@( see_also, "http://rosettacode.org/wiki/Increment_a_numerical_string" );
|
|
pragma license( unrestricted );
|
|
|
|
pragma software_model( nonstandard );
|
|
pragma restriction( no_external_commands );
|
|
|
|
procedure incstr is
|
|
s : string := "12345";
|
|
begin
|
|
s := strings.trim( strings.image( integer( numerics.value( s ) + 1 ) ), trim_end.both ) ;
|
|
? s;
|
|
end incstr;
|