Anonymous user
Substring/Top and tail: Difference between revisions
Ada version added
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add Perl 6 example) |
(Ada version added) |
||
Line 5:
* String with last character removed
* String with both the first and last characters removed
=={{header|Ada}}==
<lang Ada>with Ada.Text_IO;
procedure Remove_Characters is
S: String := "upraisers";
use Ada.Text_IO;
begin
Put_Line("Full String: """ & S & """");
Put_Line("Without_First: """ & S(S'First+1 .. S'Last) & """");
Put_Line("Without_Last: """ & S(S'First .. S'Last-1) & """");
Put_Line("Without_Both: """ & S(S'First+1 .. S'Last-1) & """");
end Remove_Characters;</lang>
Output:
<pre>Full String: "upraisers"
Without_First: "praisers"
Without_Last: "upraiser"
Without_Both: "praiser"</pre>
=={{header|ALGOL 68}}==
| |||