codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
; left-handed words (define (all? pred? xs) (cond ((null? xs) #t) ((pred? (car xs)) (all? pred? (cdr xs))) (else #f))) (define left (string->list "qwertasdfgzxcvb")) (define (left? word) (all? (lambda (c) (member c left)) (string->list word))) (with-input-from-file "words" (lambda () (do ((word (read) (read))) ((eof-object? word)) (when (left? (symbol->string word)) (display word) (newline)))))
Private
[
?
]
Run code
Submit