齊藤敦志 SaitoAtsushi
SaitoAtsushi
/ pick-toothless1.scm
Created
July 27, 2010 13:15
— forked from valvallow/pick-toothless1.scm
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (define (pick-toothless ls) | |
| (let rec ((ls ls)(acc '())) | |
| (if (or (null? ls) | |
| (null? (cdr ls))) | |
| (reverse acc) | |
| (let1 next (+ (car ls) 1) | |
| (if (= next (cadr ls)) | |
| (rec (cdr ls) acc) | |
| (rec (cons next (cdr ls)) | |
| (cons next acc))))))) |
SaitoAtsushi
/ pattern.scm
Created
July 29, 2010 15:12
— forked from tana/pattern.scm
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (use util.match) | |
| (define-syntax %def | |
| (syntax-rules (->) | |
| ((_ (a ...) (b ...) -> x r ...) | |
| (%def (a ... ((b ...) x)) () r ...)) | |
| ((_ (a ...) (b ...) x r ...) | |
| (%def (a ...) (b ... x) r ...)) | |
| ((_ (a ...) ()) | |
| (match-lambda* a ...)) |
SaitoAtsushi
/ gist:c8e22974540ebab2808f
Last active
November 30, 2015 03:54
— forked from shirok/gist:11fb4dbf5613f8fe061b
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/src/gauche.h b/src/gauche.h | |
| index 7b12cb1..bb3fd6e 100644 | |
| --- a/src/gauche.h | |
| +++ b/src/gauche.h | |
| @@ -74,13 +74,6 @@ | |
| # endif | |
| #endif | |
| -/* For Windows platforms, we need some compatibility tricks. | |
| - This defines GAUCHE_WINDOWS preprocessor symbol. |