fork download 
  1. #lang racket
  2.  
  3. (require srfi/13)
  4.  
  5. (define (string-replace-if newitem pred? s)
  6.   (string-map (lambda (x)
  7.                 (if (pred? x)
  8.                    newitem
  9.                    x)) s))
  10.  
  11. (define (complement x)
  12.   (lambda args (not (apply x args))))
  13.  
  14. (define (char-alphanumeric? c)
  15.   (or (char-alphabetic? c) (char-numeric? c)))
Success #stdin #stdout 0.52s 90768KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/s0OQUE
language:
Racket (racket 7.0)
created:
3 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!