[lisp][TRPG]maplist

maplistの使い方がわかった。

(reverse
 (maplist (lambda (l)(apply #'+ l))
		  ;; ↓経験点のリスト（仮B）
		  (reverse '(100 200 300 400 500 600))))
;;↓そのレベルまでの必要な（累計）経験点のリストになる。
;;=>(100 300 600 1000 1500 2100)

…全然関係ないけど書きながら聞いていた↓。

ついでにmapcarの例（きっとアレゲな）

(reverse
 (maplist (lambda (l)(apply #'+ l))
		  ;; ↓経験点のリスト（仮A）
		  (reverse'(200 300 400 500 600 700))))
;;↓仮Aの累計経験点リスト
;;=>(200 500 900 1400 2000 2700)

(mapcar #'+
		 '(100 300 600 1000 1500 2100)	;; Bの累計
		 '(200 500 900 1400 2000 2700))	;; Aの累計
;;=>足したリスト（AとBを両方とるときの必要経験点リスト）になる。
;;=>(300 800 1500 2400 3500 4800)

…暗算した方が速いとかそういうツッコミは無しで。