#lang racket

(define (leftrotate x c)
  (define str (number->string x 2))

  (string->number
   (for/fold
    ([result str])
    ([i (in-naturals)] #:break (= i c))
     (string-append
      (substring str 1)
      (string (string-ref str 0)))))
   2)