LISP

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

Lisp達のFizzBuzz(ループ)

;CommonLisp (loop for i from 1 to 100 do (let( (fizz (= […]
;CommonLisp (loop for i from 1 to 100 do (let( (fizz (= […]
;CommonLisp
(loop for i from 1 to 100 do
	(let(
			(fizz (= 0 (mod i 3)))
			(buzz (= 0 (mod i 5))))
コードを見る
  • タグ:
  • タグはありません
  • タグ:
  • タグはありません

(ccl:run-program)

cclに依存するけどもうこれでいいんじゃないかなって。
cclに依存するけどもうこれでいいんじゃないかなって。
(format t "[[[~%~A~%]]]~%"
	(with-output-to-string(out)
		(run-program "cmd" '("/c" "dir" "/b") :output out)))
(quit)
コードを見る
  • タグ:
  • タグはありません

(uiop:run-program)

Windowsだと日本語は文字化けるしSBCLでは文字化けどころかデコードできないって言って止まる。
Windowsだと日本語は文字化けるしSBCLでは文字化けどころかデコードできないって言って止まる。
(require :asdf)
(asdf:load-system :uiop)

(format t "[[[~%~A~%]]]~%"
	(uiop:run-program
コードを見る
  • タグ:
  • タグはありません

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)
コードを見る
  • タグ:
  • タグはありません