13 lines
221 B
Racket
13 lines
221 B
Racket
|
#lang racket/base
|
||
|
|
|
||
|
|
(provide hash-order)
|
||
|
|
|
||
|
|
(require data/order)
|
||
|
|
(require racket/contract)
|
||
|
|
|
||
|
|
(define hash-order
|
||
|
|
(order 'hash-order
|
||
|
|
any/c
|
||
|
|
eq?
|
||
|
|
(lambda (a b) (< (eq-hash-code a) (eq-hash-code b)))))
|