Toronto Lisp Users Group

[Paul Tarvydas]

Next meetings (typically 1st Tuesday of the month except on special occasions): , 2019 at 6pm:

Feb 5,

Mar 5, April 2, May 7, June 4, July 2, Aug 6



OnRamp, at the Banting Institute

100 College Street

Room BI 157

2018. 6pm – 8pm

[Robert L.]

On 2/5/2019, Paul Tarvydas wrote:

> Next meetings (typically 1st
> Tuesday of the month except on
> special occasions): , 2019 at
> 6pm:
>
> Feb 5,
>
> Mar 5, April 2, May 7, June 4, July 2, Aug 6

I broke your lines for you. When you post to Usenet,
you must limit the length of your lines. Understand?

Days between meetings.

Gauche Scheme:

(use gauche.lazy) ;; lrxmatch
(use srfi-19) ;; dates

(define text

"Next meetings (typically 1st Tuesday of the
month except on special occasions): , 2019
at 6pm:
Feb 5,

Mar 5, April 2, May 7, June 4, July 2, Aug 6")

(define dates
(map (lambda (ss)
(date->julian-day
(string->date (apply string-append "2019 " (cdr ss)) "~Y ~b~d")))
(map rxmatch-substrings
(lrxmatch #/\b(\w{3})\w{0,2}( \d{1,2})\b/ text))))

(map - (cdr dates) dates)
===>
(28 28 35 28 28 35)

--
The report card by the American Society of Civil Engineers showed the national
infrastructure a single grade above failure, a step from declining to the point
where everyday things simply stop working the way people expect them to.
http://archive.org/details/nolies