## mark a section (Learn more)

-module(fruit). -export([price/1, price2/1]). price( pear ) -> 4.0; price( banana ) -> 3.0; price( apple ) -> 6.0; price( orange ) -> 2.0; % Primera versión hasta acá. price( [] ) -> 0.0; price( [{Kilos, Fruit}|Rest] ) -> Kilos * price( Fruit ) + price( Rest ). % Segunda versión hasta acá. price2( L ) -> price2( L, 0.0 ). price2( [], Acum ) -> Acum; price2( [{Kilos, Fruit}|Rest], Acum ) -> price2( Rest, Kilos * price( Fruit ) + Acum ).

This paste will be private.