LISP

LISPに投稿されたコード一覧

No.253 ロウソクの長さ on CommonLisp

;https://yukicoder.me/problems/no/253 (let ( (numMin 10 […]
;https://yukicoder.me/problems/no/253 (let ( (numMin 10 […]
;https://yukicoder.me/problems/no/253
(let (
	(numMin 10)
	(numMax 1000000001)
)
コードを見る
  • タグ:
  • タグはありません

No.246 質問と回答 on CommonLisp

;https://yukicoder.me/problems/no/246 (let ( (numMin 1) […]
;https://yukicoder.me/problems/no/246 (let ( (numMin 1) […]
;https://yukicoder.me/problems/no/246
(let (
	(numMin 1)
	(numMax 1000000001))
	(loop
コードを見る
  • タグ:
  • タグはありません
  • タグ:
  • タグはありません

srfi 49 移植テスト(♐Scheme)

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

コードを見る
  • タグ:
  • タグはありません
  • タグ:
  • タグはありません

XorShift On Clojure Failed

TestXS.clj (require 'XorShift) (let [ r_def (XorSh […]
TestXS.clj (require 'XorShift) (let [ r_def (XorSh […]
TestXS.clj
(require 'XorShift)

(let [
	r_def (XorShift/make-XorShift-defaultSeed)
コードを見る
  • タグ:
  • タグはありません
  • タグ:
  • タグはありません

Clojureで七並べ序章

;全自動モード (def AUTO_MODE false) ;プレイヤー人数 (def PLAYER_NUMB […]
;全自動モード (def AUTO_MODE false) ;プレイヤー人数 (def PLAYER_NUMB […]
;全自動モード
(def AUTO_MODE false)
;プレイヤー人数
(def PLAYER_NUMBER 4)
;パス回数
コードを見る

CommonLispで七並べ序章

;全自動モード (defconstant AUTO-MODE nil) ;プレイヤー人数 (defconsta […]
;全自動モード (defconstant AUTO-MODE nil) ;プレイヤー人数 (defconsta […]
;全自動モード
(defconstant AUTO-MODE nil)
;プレイヤー人数
(defconstant PLAYER-NUMBER 4)
;パス回数
コードを見る
  • タグ:
  • タグはありません

LISPのテスト

これでちゃんと出てるんでしょうか。 http://www2.ocn.ne.jp/~cheerful/script/xyzzy/library/text.html より。
これでちゃんと出てるんでしょうか。 http://www2.ocn.ne.jp/~cheerful/script/xyzzy/library/text.html より。
(defun get-protocol-string (URI)
  (let (from end protocol server port)
    (setq from (string-match "^[^:/]+" URI))
    (setq end (match-end 0) )
    (when (and from end)
コードを見る
  • タグ:
  • タグはありません