LINUX.ORG.RU

История изменений

Исправление nanoolinux, (текущая версия) :

str_replace

replacer(From, To) = fun(Str) ->
	map(fun(From) -> To;
		(Other) -> Other end,
		Str)
	end.

replace_dot = replacer(",", ".").
remove_apostr = replacer("'", "").
remove_space = replacer(" ", "").

f(X) -> replace_dot(remove_apostr(remove_space(X))).

слишком длинно правда, но я только учусь.

Исправление nanoolinux, :

str_replace

Replacer(From, To) = fun(Str) ->
	map(fun(From) -> To;
		(Other) -> Other end,
		Str)
	end.

replace_dot = Replacer(",", ".").
remove_apostr = Replacer("'", "").
remove_space = Replacer(" ", "").

f(X) -> replace_dot(remove_apostr(remove_space(X))).

слишком длинно правда, но я только учусь.

Исправление nanoolinux, :

str_replace

Replacer(From, To) = fun(Str) ->
	map(fun(From) -> To;
		(Other) -> Other end,
		Str)
	end.

replace_dot = Replacer(",", ".").
remove_apostr = Replacer("'", "").
remove_space = Replacer(" ", "").

f(X) -> map(fun(Y) -> replace_dot(remove_apostr(remove_space(Y))) end, X).

слишком длинно правда, но я только учусь.

Исходная версия nanoolinux, :

str_replace

Replacer(From, To) = fun(Str) ->
	map(fun(From) -> To;
		(Other) -> Other end,
		Str)
	end.

replace_dot = Replacer(",", ".").
remove_apostr = Replacer("'", "").
remove_space = Replacer(" ", "").

f(X) -> map(fun(Y) -> replace_dot(remove_apostr(remove_space(Y))) end, X).

слишком длино правда, но я только учусь.