masatoi

;; -*- Mode: Lisp; Syntax: Common-Lisp -*-
;;
;; 第1回 Scheme コードバトン (CL fork)
;;
;; ■ これは何か？
;;   「Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。」のCL版です。
;;   次回 Shibuya.lisp で成果を発表します。
;;   Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール

masatoi

;;; -*- Coding: utf-8; Mode: Scheme; -*-

(define add1
  (lambda (x) (+ x 1)))

(add1 10)

masatoi

# Google DocsでMarkdown管理
外部Webアプリ、_StackEdit_と接続する
新規ドキュメント作成のボタンを選択した後、"アプリを追加"をクリックし、StackEditを選択する

> 引用文
> はてな記法のように範囲をくくるのではなく、メールの引用文のように引用部分の各行頭で'>'を書く

1. 数詞リスト
2. リスト2
+ 箇条書きリスト

masatoi

(ql:quickload 'lispbuilder-sdl)
(ql:quickload 'lispbuilder-sdl-gfx)
(ql:quickload 'alexandria)
 
(defparameter world (make-array '(100 100) :element-type 'fixnum))
 
;; initialize
(defun init-world! (world)
  (loop for i from 0 to (1- (array-dimension world 0)) do
    (loop for j from 0 to (1- (array-dimension world 1)) do

masatoi

#!/bin/bash

if [ $(synclient -l | grep TouchpadOff | gawk -F '=' '{ print $2 }') -eq 0 ]; then
	synclient TouchpadOff=1
else
	synclient TouchpadOff=0
fi

masatoi

;;; -*- coding:utf-8; mode:lisp -*-

(in-package :cl-user)
(defpackage cl-dudga
  (:use :cl :lparallel))
(in-package :cl-dudga)

;;; Setting for lparallel
(defparameter *kernel* (make-kernel 4))

masatoi

;;; -*- coding:utf-8; mode:lisp -*-

(in-package :cl-user)
(defpackage wiz-nn (:use :cl))
(in-package :wiz-nn)

;;; Structures

(defstruct layer
  in-dim

masatoi

;;; -*- coding:utf-8; mode:lisp; -*-

(ql:quickload :mgl-user)
(in-package :mgl-user)

;;; データの読み込み
(ql:quickload :fare-csv)
(ql:quickload :parse-number)
(defparameter data-list
  (mapcar (lambda (line)

masatoi

;;; -*- coding:utf-8; mode:Lisp  -*-

(in-package :lem)

;; Key Bindings
(define-command split-3-window-horizontally () ()
  (let ((w-width (window-width)))
    (split-active-window-horizontally)
    (shrink-window-horizontally (- (window-width) (floor (/ w-width 3))))
    (other-window)

masatoi

#!/bin/sh

DDSKK_DIC=$HOME/.skk-jisyo
DDSKK_DIC_BACKUP=$HOME/.skk-jisyo.bak

UIMSKK_DIC=$HOME/.skk-uim-jisyo
UIMSKK_DIC_BACKUP=$HOME/.skk-uim-jisyo.bak

MERGED_DIC=/tmp/.skk-jisyo-merged