Alın size bir güzel kod:)


Alın size bir güzel kod:) Benim hoşuma gitti eminim sizin hoşunuzada gidecek.

(define (goster str)
  (let loop ((str str))
    (if (equal? str "")
        (begin
          (sleep 0)
          (display ""))
        (begin
          (sleep 1/2)
          (display (string-ref str 0))
          (loop (substring str 1))))))

comments powered by Disqus