Anonymous user
Substring/Top and tail: Difference between revisions
Add Logtalk implementation
(Add Logtalk implementation) |
|||
Line 535:
print butlast :s
print butfirst butlast :s</lang>
=={{header|Logtalk}}==
Using atoms for representing strings:
<lang logtalk>
:- object(top_and_tail).
:- public(test/1).
test(String) :-
sub_atom(String, 1, _, 0, MinusTop),
write('String with first character cut: '), write(MinusTop), nl,
sub_atom(String, 0, _, 1, MinusTail),
write('String with last character cut: '), write(MinusTail), nl,
sub_atom(String, 1, _, 1, MinusTopAndTail),
write('String with first and last characters cut: '), write(MinusTopAndTail), nl.
:- end_object.
</lang>
Sample output:
<lang text>
| ?- top_and_tail::test('Rosetta').
String with first character cut: osetta
String with last character cut: Rosett
String with first and last characters cut: osett
yes
</lang>
=={{header|Lua}}==
| |||