fork download
copy 
  1. ; counting fingers
  2.  
  3. (define (finger n)
  4.   (case (modulo n 8)
  5.     ((1  ) 'thumb)
  6.     ((2 0) 'index)
  7.     ((3 7) 'middle)
  8.     ((4 6) 'ring)
  9.     ((5  ) 'pinkie)))
  10.  
  11. (display (finger 1000)) (newline)
Success #stdin #stdout 0.01s 7912KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
index
https://ideone.com/38BHgj
language:
Scheme (chicken 4.13)
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!