William James
9/26/2015 8:28:00 PM
> (defun date-line? (line)
> "Check for DATE line"
> (and (> (length line) 6) (equal (subseq line 0 6) "Date: ")))
Gauche Scheme:
(use srfi-13)
gosh> (string-prefix? "date:" "Date: 2015")
#f
gosh> (string-prefix? "Date:" "Date: 2015")
#t
gosh> (string-prefix-ci? "date:" "Date: 2015")
#t
--
I know it would be frightening for you to step outside the ever narrower
confines of what we are permitted to say about race.... Today, the most
dangerous ideas are the historical, biological, and moral truths that men such
as Washington, Jefferson, Teddy Roosevelt, Mark Twain, Walt Whitman, and your
grandparents took for granted. --- Jared Taylor