Home > Programlama, Scheme > Alın size bir güzel kod:)

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))))))
Categories: Programlama, Scheme Tags:
  1. No comments yet.
  1. No trackbacks yet.