A git workflow to use SVN server with Git from Windows through an intermediate Git in Linux
[tom@my-linux-machine:~] $ git config --global receive.denycurrentbranch ignore
C:\>git config --global merge.commit no
4 | |
"Hello" | |
#t | |
#f | |
11.752 |
(if (zero? 0) 4 | |
(+ "hello" 4.5 '(8 2))) | |
(define (flatten x) | |
(cond ((null? x) '()) | |
((list? (car x)) (append (flatten (car x)) (flatten (cdr x)))) | |
(else (cons (car x) (flatten (cdr x)))))) | |
(flatten '(1 (2 "3") "4" ((5)))) |
;; Map | |
;; --- | |
(map car '((1 2) (3 4) (5 6) (7 8))) | |
(map cdr '((1 2) (3 4) (5 6) (7 8))) | |
(map reverse '((1 2 3 4 5) (6 7 8 9 10) (11 12 13 14 15))) | |
(map string? '(3.4 5 1/4 "stringy" '("not" "me") "strungy")) |
(defn- lazy-queue-message-seq [^QueueReceiver receiver] | |
(lazy-seq | |
(let [message (.receive receiver)] | |
(cons message (lazy-queue-message-seq receiver))))) | |
(defn queue-message-seq | |
"Receive a lazy sequence of messages from the JMS Queue" | |
[queue] | |
(let [^QueueSession session (.createQueueSession *jms-queue-connection* false Session/AUTO_ACKNOWLEDGE) | |
^QueueReceiver receiver (.createReceiver session (.createQueue session queue))] |
I hereby claim:
To claim this, I am signing this object: