fork download
copy 
  1. ; fibonacci hash
  2.  
  3. (define (fibhash h)
  4.   (let ((two64 (expt 2 64)) (two54 (expt 2 54)))
  5.     (quotient (modulo (* h 11400714819323198485) two64)
  6.               two54)))
  7.  
  8. (display (fibhash 123412341234)) (newline)
  9. (display (fibhash 12341234123412341234)) (newline)
  10. (display (fibhash 1234123412341234123412341234)) (newline)
Success #stdin #stdout 0.03s 8148KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
831
269
20
https://ideone.com/AB6Q0h
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!