Filter: Difference between revisions

m
(Added implementation for 'fe' language)
Line 1,880:
 
{def filter
{lambda {:bool :as}
{if {S.empty?:bool {S.restfirst :as}}
then{if {:bool> {S.firstlength :as} 1}
elsethen {filter :bool {S.firstrest :as}}
else}}}
{filter :bool {S.rest :a}}}}}
-> filter
 
{def even? {lambda {:wn} {if {= {% :wn 2} 0} then :wn else}}}
-> even?
{def odd? {lambda {:wn} {if {= {% :wn 2} 1} then :wn else}}}
-> odd?
 
{filter even? {S.serie 1 20}}
99

edits