LISPのコード一覧 | Codetter（こーどったー）

;CommonLisp
(loop for i from 1 to 100 do
	(let(
			(fizz (= 0 (mod i 3)))
			(buzz (= 0 (mod i 5))))

;CommonLisp
(format t "~{~A~%~}" 
	(loop for i from 1 to 100 collect
		(let(
				(fizz (= 0 (mod i 3)))

(format t "[[[~%~A~%]]]~%"
	(with-output-to-string(out)
		(run-program "cmd" '("/c" "dir" "/b") :output out)))
(quit)

(require :asdf)
(asdf:load-system :uiop)

(format t "[[[~%~A~%]]]~%"
	(uiop:run-program

;https://yukicoder.me/problems/no/253
(let (
	(numMin 10)
	(numMax 1000000001)
)

;https://yukicoder.me/problems/no/246
(let (
	(numMin 1)
	(numMax 1000000001))
	(loop

(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)