Skip to content

Instantly share code, notes, and snippets.

kencoba / CFD.scala
Created Feb 3, 2014
CFD法を学ぶ、第4回「ソフトウェアテスト技法ドリル」勉強会 ref:
View CFD.scala
// [CFD法を学ぶ、第4回「ソフトウェアテスト技法ドリル」勉強会](
object 買い物合計金額 extends Enumeration {
type 買い物合計金額 = Value
val v2000円以上,その他 = Value
object ード持参 extends Enumeration {
type ード持参 = Value
val 持参している,持参していない = Value
View file0.txt
(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))))))
View slime.el```
(defun slime-complete-delay-restoration ()
(if (fboundp 'make-local-hook) (make-local-hook 'pre-command-hook))
(add-hook 'pre-command-hook
;;; 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))
View init.el
(setq inferior-lisp-program "C:\\usr\\ccl\\wx86cl64")
View file0.txt
; SLIME 2013-11-17
CL-USER> (ql:quickload :integral)
To load "integral":
Load 1 ASDF system:
; Loading "integral"
CL-USER> (import 'integral:connect-toplevel)
kencoba / データ抽出
Created Mar 20, 2014
複数Excelブックの、特定シート、特定列を全部マージする ref:
View データ抽出
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)
View Definitions
(define-event f.enter)
(define-event f.exit)
(define-event b.enter)
(define-event b.exit)
(define-event c.close)
View MicroComputer
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)
View Definition
(define-event a)
(define-event b)
(define-event c)
View Assertions
(deadlock SYS)
(trace SPEC SYS)
(failure SPEC SYS)