code pieces
  1. (define (rotate2-right s)
  2. (let* ((len (string-length s))
  3. (first2 (substring s 0 2))
  4. (rest (substring s 2 len)))
  5. (string-append rest first2)))
Pasted 2026-08-28 02:18:39

Short link: