Plaster
New
List
Login
common-lisp
default
phoe
2020.01.02 01:31:24
(let ((tiles '([1p] [1p] [1p] [2p] [3p] [4p] [5p] [6p] [7p] [8p] [9p] [9p] [9p]))) (dolist (winning-tile '([1p] [2p] [3p] [4p] [5p] [6p] [7p] [8p] [9p])) (print (rh::%find-orderings tiles winning-tile :tsumo '())))) ((#<ANKOU 111p> (#<ANJUN 789p> #<ANJUN 456p> #<ANJUN 123p> #<ANTOI 99p>))) ((#<ANTOI 22p> (#<ANJUN 678p> #<ANJUN 345p> #<ANKOU 999p> #<ANKOU 111p>))) ((#<ANJUN 345p> (#<ANJUN 678p> #<ANJUN 123p> #<ANTOI 11p> #<ANKOU 999p>))) ((#<ANJUN 456p> (#<ANJUN 789p> #<ANJUN 234p> #<ANTOI 99p> #<ANKOU 111p>))) ((#<ANTOI 55p> (#<ANJUN 678p> #<ANJUN 234p> #<ANKOU 999p> #<ANKOU 111p>))) ((#<ANJUN 678p> (#<ANJUN 456p> #<ANJUN 123p> #<ANTOI 11p> #<ANKOU 999p>))) ((#<ANJUN 789p> (#<ANJUN 567p> #<ANJUN 234p> #<ANTOI 99p> #<ANKOU 111p>))) ((#<ANTOI 88p> (#<ANJUN 567p> #<ANJUN 234p> #<ANKOU 999p> #<ANKOU 111p>))) ((#<ANKOU 999p> (#<ANJUN 789p> #<ANJUN 456p> #<ANJUN 123p> #<ANTOI 11p>)))
Raw
Annotate
Repaste
Annotations
common-lisp
default
phoe
2020.01.02 01:35:22
(let ((tiles '([1p] [1p] [2p] [2p] [3p] [3p] [4p] [4p] [5p] [5p] [6p] [6p] [7p]))) (print (rh::%find-orderings tiles [7p] :tsumo '()))) ((#<ANTOI 77p> (#<ANTOI 66p> #<ANTOI 55p> #<ANTOI 44p> #<ANTOI 33p> #<ANTOI 22p> #<ANTOI 11p>)) (#<ANTOI 77p> (#<ANJUN 456p> #<ANJUN 456p> #<ANTOI 33p> #<ANTOI 22p> #<ANTOI 11p>)) (#<ANTOI 77p> (#<ANJUN 345p> #<ANJUN 345p> #<ANTOI 66p> #<ANTOI 22p> #<ANTOI 11p>)) (#<ANTOI 77p> (#<ANJUN 234p> #<ANJUN 234p> #<ANTOI 66p> #<ANTOI 55p> #<ANTOI 11p>)) (#<ANTOI 77p> (#<ANJUN 123p> #<ANJUN 123p> #<ANTOI 66p> #<ANTOI 55p> #<ANTOI 44p>)) (#<ANTOI 77p> (#<ANJUN 456p> #<ANJUN 456p> #<ANJUN 123p> #<ANJUN 123p>)) (#<ANJUN 567p> (#<ANJUN 567p> #<ANTOI 44p> #<ANTOI 33p> #<ANTOI 22p> #<ANTOI 11p>)) (#<ANJUN 567p> (#<ANJUN 567p> #<ANJUN 234p> #<ANJUN 234p> #<ANTOI 11p>)) (#<ANJUN 567p> (#<ANJUN 567p> #<ANJUN 123p> #<ANJUN 123p> #<ANTOI 44p>)))
Raw
Repaste