Skip to content

Instantly share code, notes, and snippets.

@kazh98

kazh98/lispmeetup8.scm

Created August 27, 2013 03:33
Show Gist options
  • Save kazh98/6349366 to your computer and use it in GitHub Desktop.
Save kazh98/6349366 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
lispmeetup8.scm
(format #t "~D~%"
(apply +
(map (lambda (e) (x->number ((#/^[^\s]+\s+[^\s]+\s+[^\s]+\s+[^\s]+\s+([0-9]+)/ e) 1)))
(filter (lambda (e) (odd? (x->number ((#/([0-9]+)/ e) 1))))
(cdr (port->string-list (standard-input-port)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment