Changeset 8824 in project


Ignore:
Timestamp:
02/24/08 19:35:55 (11 years ago)
Author:
svnwiki
Message:

Changes applied for Anonymous (69.70.120.46) through svnwiki:

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/jean-philippe-theberge

    r8823 r8824  
    55
    66You can reach by email at:
    7 <scheme>(define (string-join items delim)
    8   (if (null? items)
    9       ""
    10       (let loop ((result '())
    11                  (items items))
    12         (if (null? items)
    13             (apply string-append (reverse (cdr result)))
    14             (loop (cons delim (cons (car items) result))
    15                   (cdr items))))))
    16 
    17 (define (mailto mail)
    18   (let ((estr (string-join (map (lambda (c)
    19                                   (number->string (char->integer c)))
    20                                 (string->list mail)) ",")))
    21     (print (string-append "<script type=\"text/javascript\">\n"
    22                           "document.write(String.fromCharCode(60,97,32,104,114,101,102,61,34,109,97,105,108,116,111,58,"
    23                           estr
    24                           ",34,62,"
    25                           estr
    26                           ",60,47,97,62))"
    27                           "\n</script>"))))
    28 (mailto "jphiltheberge@gmail.com")
     7<scheme>
     8(let ((string-join (lambda (items delim)
     9                      (if (null? items)
     10                          ""
     11                        (let loop ((result '())
     12                                   (items items))
     13                             (if (null? items)
     14                                 (apply string-append (reverse (cdr result)))
     15                               (loop (cons delim (cons (car items) result))
     16                                     (cdr items)))))))
     17                       
     18       (mailto (lambda (mail)
     19                 (let ((estr (string-join (map (lambda (c)
     20                                                 (number->string (char->integer c)))
     21                                               (string->list mail)) ",")))
     22                   (print (string-append "<script type=\"text/javascript\">\n"
     23                                         "document.write(String.fromCharCode(60,97,32,104,114,101,102,61,34,109,97,105,108,116,111,58,"
     24                                         estr
     25                                         ",34,62,"
     26                                         estr
     27                                         ",60,47,97,62))"
     28                                         "\n</script>"))))))
     29  (mailto "jphiltheberge@gmail.com"))
    2930</scheme>
    3031
Note: See TracChangeset for help on using the changeset viewer.