fork download
copy 
  1. ;; String chomp that copies behavior from Ruby. (1.01)
  2.  
  3. (define (string-drop-suffix s pat)
  4.   (string-drop-right s (string-suffix-length s pat)))
  5.  
  6. (define (chomp-newline s)
  7.   (string-fold (lambda (c s)
  8.                  (string-drop-suffix s (string c)))
  9.                s "\n\r"))
  10.  
  11. (define (chomp-all-newlines s)
  12.   (let ((n (string-suffix-length s "\r\n")))
  13.     (if (zero? n)
  14.         s
  15.         (chomp-all-newlines (string-drop-right s n)))))
  16.  
  17. (define* (chomp s #:optional (sep '()))
  18.   (cond
  19.    ((null? sep)
  20.     (chomp-newline s))
  21.    ((string-null? sep)
  22.     (chomp-all-newlines s))
  23.    (else
  24.     (string-drop-suffix s sep))))
  25.  
  26. ;; Show.
  27.  
  28. (format #t "~S~%" (chomp "hello"))               ;=> "hello"
  29. (format #t "~S~%" (chomp "hello\n"))             ;=> "hello"
  30. (format #t "~S~%" (chomp "hello\r\n"))           ;=> "hello"
  31. (format #t "~S~%" (chomp "hello\n\r"))           ;=> "hello\n"
  32. (format #t "~S~%" (chomp "hello\r"))             ;=> "hello"
  33. (format #t "~S~%" (chomp "hello \n there"))      ;=> "hello \n there"
  34. (format #t "~S~%" (chomp "hello" "llo"))         ;=> "he"
  35. (format #t "~S~%" (chomp "hello\r\n\r\n\n" ""))  ;=> "hello"
  36. (format #t "~S~%" (chomp "hello\r\n\r\r\n" ""))  ;=> "hello\r\n\r"
Success #stdin #stdout 0.02s 10944KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
"hello"
"hello"
"hello"
"hello\n"
"hello"
"hello \n there"
"he"
"hello"
"hello\r\n\r"
https://ideone.com/pdfSTb
language:
Scheme (guile 2.2.4)
created:
15 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!