Substring/Top and tail: Difference between revisions
m (Minor tidying) |
(added js, php, python, ruby) |
||
Line 5: | Line 5: | ||
* String with last character removed |
* String with last character removed |
||
* String with both the first and last characters removed |
* String with both the first and last characters removed |
||
=={{header|JavaScript}}== |
|||
<lang javascript>alert("knight".slice(1)); // strip first character |
|||
alert("socks".slice(0, -1)); // strip last character |
|||
alert("brooms".slice(1, -1)); // strip both first and last characters</lang> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
Line 18: | Line 24: | ||
print $bits; # h |
print $bits; # h |
||
print $string; # ouc # See we really did chop the last letter off</lang> |
print $string; # ouc # See we really did chop the last letter off</lang> |
||
=={{header|PHP}}== |
|||
<lang php><?php |
|||
echo substr("knight", 1), "\n"; // strip first character |
|||
echo substr("socks", 0, -1), "\n"; // strip last character |
|||
echo substr("brooms", 1, -1), "\n"; // strip both first and last characters |
|||
?></lang> |
|||
=={{header|PureBasic}}== |
=={{header|PureBasic}}== |
||
Line 32: | Line 46: | ||
sock |
sock |
||
room</pre> |
room</pre> |
||
=={{header|Python}}== |
|||
<lang python>print "knight"[1:] # strip first character |
|||
print "socks"[:-1] # strip last character |
|||
print "brooms"[1:-1] # strip both first and last characters</lang> |
|||
=={{header|Ruby}}== |
|||
<lang ruby>puts "knight"[1..-1] # strip first character |
|||
puts "socks"[0..-2] # strip last character |
|||
puts "socks".chop # alternate way to strip last character |
|||
puts "brooms"[1..-2] # strip both first and last characters</lang> |
|||
=={{header|ZX Spectrum Basic}}== |
=={{header|ZX Spectrum Basic}}== |
Revision as of 09:01, 6 June 2011
The task is to demonstrate how to remove the first and last characters from a string. The solution should demonstrate how to obtain the following results:
- String with first character removed
- String with last character removed
- String with both the first and last characters removed
JavaScript
<lang javascript>alert("knight".slice(1)); // strip first character alert("socks".slice(0, -1)); // strip last character alert("brooms".slice(1, -1)); // strip both first and last characters</lang>
Perl
<lang perl>print substr("knight",1), "\n"; # strip first character print substr("socks", 0, -1), "\n"; # strip last character print substr("brooms", 1, -1), "\n"; # strip both first and last characters</lang>
In perl, we can also remove the last character from a string variable with the chop function:
<lang perl>$string = 'ouch'; $bits = chop($string); # The last letter is returned by the chop function print $bits; # h print $string; # ouc # See we really did chop the last letter off</lang>
PHP
<lang php><?php echo substr("knight", 1), "\n"; // strip first character echo substr("socks", 0, -1), "\n"; // strip last character echo substr("brooms", 1, -1), "\n"; // strip both first and last characters ?></lang>
PureBasic
<lang PureBasic>If OpenConsole()
PrintN(Right("knight", Len("knight") - 1)) ;strip the first letter PrintN(Left("socks", Len("socks")- 1)) ;strip the last letter PrintN(Mid("brooms", 2, Len("brooms") - 2)) ;strip both the first and last letter Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input() CloseConsole()
EndIf</lang> Sample output:
night sock room
Python
<lang python>print "knight"[1:] # strip first character print "socks"[:-1] # strip last character print "brooms"[1:-1] # strip both first and last characters</lang>
Ruby
<lang ruby>puts "knight"[1..-1] # strip first character puts "socks"[0..-2] # strip last character puts "socks".chop # alternate way to strip last character puts "brooms"[1..-2] # strip both first and last characters</lang>
ZX Spectrum Basic
<lang zxbasic>10 PRINT FN f$("knight"): REM strip the first letter 20 PRINT FN l$("socks"): REM strip the last letter 30 PRINT FN b$("brooms"): REM strip both the first and last letter 100 STOP
9000 DEF FN f$(a$)=a$(2 TO LEN(a$)) 9010 DEF FN l$(a$)=a$(1 TO LEN(a$)-(1 AND (LEN(a$)>=1))) 9020 DEF FN b$(a$)=FN l$(FN f$(a$)) </lang>