Codetter（こーどったー）

#runtime "hsp3cl"
#cmpopt varinit 1

#module CharaBase _name,_hp,_mp,_waza
	#modcfunc name

(println "def")
(def seed 256)
(dotimes[i 3]
	(def rnd seed)
	(time(loop[i 0](when(< i 10000000)

#!reader=srfi/49
(import (srfi 49))
import
	srfi 1

;CommonLisp
(format t
	"~{~A~^~%~}~%"
	(loop for i from 1 to 100 collect
		(let (

TestXS.clj
(require 'XorShift)

(let [
	r_def (XorShift/make-XorShift-defaultSeed)

(defstruct SPerson
	name
	age
)

;全自動モード
(def AUTO_MODE false)
;プレイヤー人数
(def PLAYER_NUMBER 4)
;パス回数

;全自動モード
(defconstant AUTO-MODE nil)
;プレイヤー人数
(defconstant PLAYER-NUMBER 4)
;パス回数

Codetterのリニューアルを行いました。
基本的な使い方は以前と同じですが、高機能なエディタを導入し、SSLに対応いたしました。
引き続きご愛顧の程をお願いいたします。

Const psnName=0
Const psnAge=1
Const psnHeight=2

Function NewPerson(name,age,height)