fork download
copy 
  1. ; rhyming sort
  2.  
  3. (define (reverse-word str) (list->string (reverse (string->list str))))
  4.  
  5. (define (rhyming-lt? a b) (string<? (reverse-word a) (reverse-word b)))
  6.  
  7. (define (rhyming-sort words) (sort words rhyming-lt?))
  8.  
  9. (display (rhyming-sort '("falsely" "fly" "freely" "sorely" "surely")))
Success #stdin #stdout 0.01s 7892KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(freely sorely surely falsely fly)
https://ideone.com/4dNypS
language:
Scheme (chicken 4.13)
created:
3 years ago
visibility:
secret

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!