fork download
copy 
  1. ; jumble
  2.  
  3. (define (jumble target)
  4.   (let ((target (sort (string->list target) char<?)))
  5.     (let loop ((word (read)))
  6.       (unless (eof-object? word)
  7.         (let ((signature (sort (string->list (symbol->string word)) char<?)))
  8.           (if (equal? target signature) word (loop (read))))))))
  9.  
  10. (display (jumble "lteade")) (newline)
  11. (display (jumble "abcdef")) (newline)
Success #stdin #stdout 0.01s 50224KB
comments (?)
stdin
copy 
bishop
elated
travel
stdout
copy 
elated
#<unspecified>
https://ideone.com/jxf1Dc
language:
Scheme (guile 2.2.4)
created:
5 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!