Re:filter*

• vallog: filter*

こんな感じで↓。

	; filter*
	(use srfi-1)
	(define (filter* pred? ls)
	(fold-right (lambda (e acc)
	(let/cc skip
	(cons (if (pair? e)
	(filter* pred? e)
	(if (pred? e)
	e
	(skip acc)))
	acc)))
	'() ls))
	(filter* number? '(1 2 (3 a) (b 4)))
	; -> (1 2 (3) (4))
	(define (filter* pred? ls)
	(fold-right (lambda (e acc)
	(call/cc
	(lambda (skip)
	(cons (if (pair? e)
	(filter* pred? e)
	(if (pred? e)
	e
	(skip acc)))
	acc))))
	'() ls))
	(filter* number? '(1 2 (3 a) (b 4)))
	; -> (1 2 (3) (4))

view raw filter-star2.scm hosted with ❤ by GitHub

お陰さまでかなりすっきりしました（笑）

• Twitter / のどっち (原村 和): ああ、お題。ネストを潜っていくfilter* を書け ...
• タンブラーとは - #9LISP 実は意図はこう言う事です。