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
// [CFD法を学ぶ、第4回「ソフトウェアテスト技法ドリル」勉強会](http://softest.cocolog-nifty.com/blog/2011/04/cfd4-28d6.html) | |
object 買い物合計金額 extends Enumeration { | |
type 買い物合計金額 = Value | |
val v2000円以上,その他 = Value | |
} | |
object カード持参 extends Enumeration { | |
type カード持参 = Value | |
val 持参している,持参していない = Value | |
} |
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
(defun format-specific-day (ymd) | |
"insert month,day and day of the week" | |
(interactive "syyyy-mm-dd: ") | |
(when (string-match "^\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)$" ymd) | |
(let ((yy (string-to-number (match-string 1 ymd))) | |
(mm (string-to-number (match-string 2 ymd))) | |
(dd (string-to-number (match-string 3 ymd)))) | |
(insert (format-time-string "%m月%d日(%a)" | |
(encode-time 0 0 0 dd mm yy nil 0)))))) |
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
(defun slime-complete-delay-restoration () | |
(if (fboundp 'make-local-hook) (make-local-hook 'pre-command-hook)) | |
(add-hook 'pre-command-hook | |
'slime-complete-maybe-restore-window-configuration)) | |
;;; Stuff only available in XEmacs | |
(slime-defun-if-undefined add-local-hook (hook function &optional append) | |
(if (fboundp 'make-local-hook) (make-local-hook hook)) | |
(add-hook hook function append t)) |
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
(setq inferior-lisp-program "C:\\usr\\ccl\\wx86cl64") |
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
; SLIME 2013-11-17 | |
CL-USER> (ql:quickload :integral) | |
To load "integral": | |
Load 1 ASDF system: | |
integral | |
; Loading "integral" | |
(:INTEGRAL) | |
CL-USER> (import 'integral:connect-toplevel) | |
T |
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
Option Explicit | |
Sub データ抽出() | |
Dim bkInput As Workbook | |
Set bkInput = ThisWorkbook | |
Dim shtInput As Worksheet | |
Set shtInput = bkInput.Sheets(1) | |
Dim bkOutput As Workbook | |
Set bkOutput = Workbooks.Add | |
shtInput.Copy Before:=bkOutput.Sheets(1) |
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-event f.enter) | |
(define-event f.exit) | |
(define-event b.enter) | |
(define-event b.exit) | |
(define-event c.open) | |
(define-event c.close) |
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
Option Explicit | |
Private cPC As Range ' ProgramCounter | |
Private cCR As Range ' CommandRegister | |
Private cAR As Range ' AddressRegister | |
Private cAA As Range ' AccumulatorA | |
Private cAB As Range ' AccumulatorB | |
Sub Init() | |
Set cPC = Worksheets(1).Cells(2, 4) | |
Set cCR = Worksheets(1).Cells(2, 5) |
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-event a) | |
(define-event b) | |
(define-event c) |
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
; [masaterukの日記](http://d.hatena.ne.jp/masateruk/20130813/1376398968) | |
; Definitions | |
(define-channel sch (x) '((0) (1))) | |
(define-channel rch (x) '((0) (1))) | |
; SYS | |
(define-process Sender | |
(! rch (0) | |
(? sch (x) (= x 0) |
OlderNewer