PasteRack.org
Paste # 18447
2017-01-16 13:54:18

Forked from paste # 80302.

Fork as a new paste.

Paste viewed 630 times.


Embed:

  1. #lang racket
  2.  
  3.  
  4. (define (inv_log m n a)
  5.         (cond
  6.                 [(> m n)
  7.                         0
  8.                 ]
  9.                 [else
  10.                         ( + 1 (inv_log (* m a) n a) )
  11.                 ]
  12.         )
  13. )
  14.  
  15. (define (log m n)
  16.         (inv_log m n m)
  17. )
  18.  
  19. (log 2 9)

=>

3