Skip to content

Instantly share code, notes, and snippets.

View wakita's full-sized avatar

Ken Wakita wakita

View GitHub Profile
@wakita
wakita / r6rs-block-comments.scm
Created August 28, 2012 02:02
R6RSにもブロック式コメントがあるらしい.
(list
'phrases
'in
'a
'block
#|
(This is a comment)
(This is another comment)
(This is yet another comment)
|#
@wakita
wakita / encapsulated_macro_usage.scm
Created August 29, 2012 03:25
マクロ定義を環境に埋め込み,取り出す試み → でも失敗
;;; マクロ使用をマークするためのシンボル
(define jsx-mark-macro-usage
(string->symbol "JSX:Mark Macro Usage"))
;;; マクロ使用を環境に閉じ込めるための仕掛け
(define (encapsulate e)
`(,jsx-mark-macro-usage (lambda () ,e '())))
@wakita
wakita / scene.ml
Created October 27, 2012 09:03
lablGL のデモ --- 3D グラフィクスが 45 行の OCaml でできました.
let pi = acos (-1.);;
let lighting () =
List.iter (GlLight.light ~num:0)
[ `ambient (0.4, 0.4, 0.4, 1.0); `diffuse (1.0, 1.0, 1.0, 1.0);
`specular (1.0, 1.0, 1.0, 1.0); `position (1.0, 1.0, 1.0, 0.0) ];
GlFunc.depth_func `less;
List.iter Gl.enable [`lighting; `light0; `depth_test];;
let solid_sphere ?(x=0.0) ?(y=0.0) ?(z=0.0) ?(radius=1.0) () =
@wakita
wakita / naisho.sh
Created April 12, 2013 09:23
encfs を使って,暗号化フォルダを使用するために作ったシェルスクリプトです.暗号化して使いたい空のフォルダで "touch .encrypted" をしてから,"naisho" コマンドを実行すると暗号化フォルダを作成するとともに,復号された復号フォルダに移動します.復号フォルダでもう一度 "naisho" コマンドを実行すると,復号フォルダは消え,暗号化されたフォルダに移動します.
naisho() {
if [ -f .encrypted ]; then
encrypted=`pwd`
name=`basename $encrypted`
decrypted=$HOME/.volumes/$name
mounted=`mount | grep $decrypted`
if [ ! "$mounted" ]; then
mkdir -p $decrypted
encfs --standard -ovolname=$name $encrypted $decrypted
Process: AquaSKK [6622]
Path: /Library/Input Methods/AquaSKK.app/Contents/MacOS/AquaSKK
Identifier: jp.sourceforge.inputmethod.aquaskk
Version: 1.0
Code Type: X86-64 (Native)
Parent Process: ??? [1]
Responsible: AquaSKK [6622]
User ID: 501
Date/Time: 2014-10-20 15:33:21.501 +0900
package wakita.lx14
import scala.compat.Platform
import scalafx.Includes._
import scalafx.application.JFXApp
import scalafx.application.JFXApp.PrimaryStage
import scalafx.scene.Scene
import scalafx.scene.input.{MouseEvent}
import scalafx.scene.layout.{Pane}
echo off
c:
REM Add Cygwin to the PATH. The Cygwin path is not included in the system wide PATH configuration because MinGW dislikes Cygwin.
set PATH=c:\cygwin64\bin;%PATH%
REM Setting Visual Studio environment.
REM call "c:\Program Files (x86)\Microsoft Visual Studio 12.0\VC\vcvarsall.bat" x86
set CYGWIN=nodosfilewarning
## 講義概要
1. 本学の学生がこれから計算機環境を利用して学習・研究を行なうために,最低限必要な基礎知識と技術を教授する。計算機環境への接し方,文書作成, WWW,電子メールシステムの使用法など,計算機ネットワークを使ったコミュニケーションの方法を中心に,そのマナーや法的・倫理的事項など科学技術者倫理についても留意しながら,体験的学習を行わせる。
1. ネットワーキング,コンピュータコミュニケーション,文書作成,情報倫理と知的所有権,情報化と社会。
-----
## 講義の目的
- 本学の学生がこれから計算機環境を利用して学習・研究を行うために、最低限必要な基礎的知識と技術を教授する。
大岡山で水曜日1-2時限に開講するCL1bとすずかけ台で木曜の午前に開講するCL7aとCL7bの授業のサイトです.
授業を担当し,本サイトを運営しているのは,大学院情報理工学研究科数理・計算科学専攻で准教授をしている脇田建です.
- CL1b: 大岡山南4-3F第二演習室(通常は水曜1,2時限)
- CL7a: すずかけ台情報ネットワーク演習室(通常は木曜3,4時限)
- CL7b: すずかけ台情報ネットワーク演習室(通常は木曜1,2時限)
-----
## 授業の概要
bootstrap mingw
b2 install --build-type=complete --build-dir=c:\wakita\.tmp --layout=tagged cxxflags="-std=cxx11" toolset=gcc