fork download
copy 
  1. ; exercise 2-4
  2.  
  3. (define (squeeze str c-or-s)
  4.   (let ((dels (if (char? c-or-s)
  5.                   (list c-or-s)
  6.                   (string->list c-or-s))))
  7.     (list->string
  8.       (filter (lambda (c) (not (member c dels)))
  9.               (string->list str)))))
  10.  
  11. (display (squeeze "Programming Praxis" #\P)) (newline)
  12. (display (squeeze "Programming Praxis" "aeiou")) (newline)
Success #stdin #stdout 0.01s 8672KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
rogramming raxis
Prgrmmng Prxs
https://ideone.com/pCg02E
language:
Scheme (guile 2.2.4)
created:
7 years 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!