Anonymous user
Substring/Top and tail: Difference between revisions
→{{header|PureBasic}}
Line 65:
-> "room"</lang>
=={{header|Prolog}}==
Works with SWI-Prolog.
<lang Prolog>remove_first_last_chars :-
L = "Rosetta",
L = [_|L1],
remove_last(L, L2),
remove_last(L1, L3),
writef('Original string : %s\n', [L]),
writef('Without first char : %s\n', [L1]),
writef('Without last char : %s\n', [L2]),
writef('Without first/last chars : %s\n', [L3]).
remove_last(L, LR) :-
reverse(L, [_ | L1]),
reverse(L1, LR).</lang>
Output :
<pre> ?- remove_first_last_chars.
Original string : Rosetta
Without first char : osetta
Without last char : Rosett
Without first/last chars : osett
true.
</pre>
=={{header|PureBasic}}==
<lang PureBasic>If OpenConsole()
| |||