Comments on: The Little Pickaxer

By: Let’s start with Django! « If ain’t broken don’t fix it

Let’s start with Django! « If ain’t broken don’t fix it — Mon, 10 Mar 2008 09:28:21 +0000

[…] So far I’m in love with it. All the niceties of ROR without the dark arts part. Of course if you are able to read and enjoy The little LISPer you probably are much more intelligent than me. […]

By: Matteo Vaccari » Blog Archive » Queste funzioni “*”

Matteo Vaccari » Blog Archive » Queste funzioni “*” — Sun, 21 Oct 2007 14:04:32 +0000

[…] Quindi la rember* non � altro che la reject applicata ad alberi (ovvero liste comunque innestate. S� Ugo, alla fine queste liste sono piante :-). […]

By: Marco Trinci

Marco Trinci — Sun, 21 Oct 2007 12:57:32 +0000

rember_star(A, [A|Rest]) -> rember_star(A,Rest);
rember_star(A, [First|Rest]) -> [rember_star(A,First)] ++ rember_star(A,Rest);
rember_star(_, A) -> A.

rember_star_test_() -> [
?_assertMatch ([], rember_star(anything, [])),
?_assertMatch ([], rember_star(foo, [foo])),
?_assertMatch ([bar], rember_star(foo, [bar])),
?_assertMatch ([a, c], rember_star(b, [a, b, c])),
?_assertMatch ([[[]]], rember_star(foo, [[[foo]]])),
?_assertMatch ([[coffee], [[tea]], [e, [hick]]], rember_star(cup, [[coffee], cup, [[tea], cup], [e, [hick]], cup]))
].

insertR_star(A, B, [A|Rest]) -> [A,B] ++ insertR_star(A,B,Rest);
insertR_star(A, B, [First|Rest]) -> [insertR_star(A,B,First)] ++ insertR_star(A,B,Rest);
insertR_star(_, _, A) -> A.

insertR_star_test_() -> [
?_assertMatch ([], insertR_star(anything, anything, [])),
?_assertMatch ([foo,chuck], insertR_star(foo, chuck, [foo])),
?_assertMatch ([bar], insertR_star(foo, anything, [bar])),
?_assertMatch ([a,b,chuck,c], insertR_star(b, chuck, [a, b, c])),
?_assertMatch ([[[foo, chuck]]], insertR_star(foo, chuck, [[[foo]]])),
?_assertMatch (
[[how, much, [wood]], could, [[a, [wood], chuck, roast]], [[[chuck, roast]]], [se, [a], [[wood, chuck, roast]]], could, chuck, roast, wood]
, insertR_star(chuck,roast,
[[how, much, [wood]], could, [[a, [wood], chuck]], [[[chuck]]], [se, [a], [[wood, chuck]]], could, chuck, wood]
))].

By: Ugo Cei

Ugo Cei — Sun, 21 Oct 2007 11:15:14 +0000

“Questa rember* in pratica rimuove tutte le occorrenze del primo simbolo, in una lista comunque innestata.”

Innestata? Non sapevo che le liste fossero piante ;)

Questa � come tradurre “I pretend to have a horse in my factory” come “Pretendo di avere un orso nella mia fattoria”.

;))))