Programming-Idioms

(def t 
  (when (string? s)
    (let [from (-> s (count) (- 5) (max 0))]
      (subs s from))))

(let [t (clojure.string/join (take-last 5 s))])

IDENTIFICATION DIVISION.
PROGRAM-ID. suffix.
PROCEDURE DIVISION.
    MOVE FUNCTION LENGTH(s) TO len
    COMPUTE pos = (len - 5) + 1
    MOVE    s(pos:) TO t    	 	
STOP RUN.

var t = s.Substring(s.Length - 5);

string t = s[$-5..$];

var n = s.length;
var t = s.substring(n-5, n);

t = String.slice(s, -5, 5)

[T5, T4, T3, T2, T1 | _] = lists:reverse(S),
T = [T1, T2, T3, T4, T5].

character(len=5) :: t
t = s(len(s)-4:)

t := string([]rune(s)[len([]rune(s))-5:])

final t = s[-5..-1]

t = drop (length s - 5) s

var t = s.slice(-5);

int n = s.length();
String t = s.substring(n-5,n);

(setf *t* (subseq s (- (length s) 5)))

NSString *t=[s substringFromIndex:s.length-5];

$t = mb_substr($s, -5, null, 'UTF-8');

Function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString;
var j,l:integer;
begin
  l:=length(atext);
  j:=ACount;
  if j>l then j:=l;
  Result:=Copy(AText,l-j+1,j);
end;

t = s[-5:]

t = s[-5..-1]

let last5ch = s.chars().count() - 5;
let t: String = s.chars().skip(last5ch).collect();

t = s.Substring(s.Length - 5)