Advanced Search

Return to Snippet

Revision: 23740
at February 12, 2010 01:23 by magicrebirth
Initial Code 
(define string-replace 
   (lambda (s match replacement)
      (let ((ll (string->list s))
            (match1 (char match))
            (replacement1 (char replacement)))
         (if (= (string-length match) 1)
             (let ((z (map (lambda (x)
                              (if (equal? x match1)
                                  replacement1
                                  x))
                           ll)))
                (list->string (list-flatten z)))
                ;z)
             (print "i can match only single characters for now")))))
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Written for the impromptu-scheme environment.. other schemes might need different  procedures..

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
scheme: replace a string

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Scheme