Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/nofib/real/anna/concat22.cor

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.



list a ::= Nil | Cons a (list a);

;;

foldr f a l = case l of Nil -> a; Cons x xs -> f x (foldr f a xs) end;

append l1 l2 = case l1 of Cons x xs -> Cons x (append xs l2); Nil -> l2 end;

concat = foldr append Nil;

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to webmaster@9p.io.