Revision: 23537
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at February 9, 2010 03:47 by magicrebirth
Initial Code
(let loop ((i 0) (j 20) ;; comparison value: it decreases at each recursion (except the first one) (topvalue 20)) ;; komodo value : must be equal to j at the beginning (let ((txt "Toyota denies previous banking problem is safety")) (if (equal? (- topvalue i) j) ;; the first time (loop (+ i 1) j topvalue) (begin (print (substring txt (- topvalue i) j)) (if (string=? (substring txt (- topvalue i) j) " ") (string-append (substring txt 0 (- topvalue i)) "\n" (substring txt (- topvalue i) (string-length txt))) (if (< i topvalue) ;;avoid negative indexes in substring (loop (+ i 1) (- j 1) topvalue)))))))
Initial URL
Initial Description
Initial Title
Scheme: find a substring
Initial Tags
Initial Language
Scheme