This file contains hidden or 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
#!/usr/bin/gosh | |
;; baroque | |
(use gauche.parseopt) | |
(use srfi-1) ; circular-list | |
;; | |
;; solver | |
;; |
This file contains hidden or 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
#!/bin/sh | |
ssh -i /home/valvallow/.ssh/kaisha/id_rsa valvallow@kaisha-no-server '~/wol-srv.sh' |
This file contains hidden or 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 gauche.generator) | |
(use gauche.lazy) | |
(define-syntax chain | |
(syntax-rules () | |
((_ ls (p1 p2)) (p1 p2 ls)) | |
((_ ls (p1 p2) x ...) | |
(begin (chain ls (p1 p2)) | |
(chain ls x ...))))) |
This file contains hidden or 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 gauche.generator) | |
(use gauche.lazy) | |
(define-syntax chain | |
(syntax-rules () | |
((_ ls proc)(proc ls)) | |
((_ ls proc x ...) | |
(begin (chain ls proc) | |
(chain ls x ...))))) |
This file contains hidden or 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
public static class Values { | |
public static void Receive<T1, T2>(this Tuple<T1, T2> tuple, out T1 item1, out T2 item2) { | |
item1 = tuple.Item1; | |
item2 = tuple.Item2; | |
} | |
public static void CallWith<T1, T2>(this Tuple<T1, T2> tuple, Action<T1, T2> func) { | |
func(tuple.Item1, tuple.Item2); | |
} | |
} |
This file contains hidden or 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
div.section .gist .gist-file .gist-data pre{ | |
font-family: consolas, monospace, sans-serif !important; | |
-moz-border-radius: 8px; | |
-moz-border-radius-bottomleft: 0; | |
-moz-border-radius-bottomright: 0; | |
-webkit-border-radius: 8px; | |
-webkit-border-bottom-left-radius: 0; | |
-webkit-border-bottom-right-radius: 0; | |
overflow: auto !important; | |
color: #c2c2c2; |
This file contains hidden or 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 srfi-1) ; iota | |
(use srfi-43) ; vector-for-each | |
(define fail #f) | |
;;; write following at the end of file | |
;;; to initialize the value of the fail. | |
(call/cc | |
(lambda (cc) | |
(set! fail |