Revision as of 14:52, 2 August 2011 view source Markjreed (talk \| contribs) 1,481 edits →‎{{header\|F Sharp\|F#}}: Add Erlang. ← Older edit		Revision as of 15:49, 2 August 2011 view source Markjreed (talk \| contribs) 1,481 edits →‎{{header\|Erlang}} Newer edit →
Line 562: -import(string, [to_upper/1]). contains(List, Item) -> is_pangram(S) ->▼ any( fun(X) -> X == Item end, List ). ▲is_pangram(SString) -> Alphabet = seq(hd("A"), hd("Z")), UpperString = to_upper(String), all(fun(X) -> any(fun(Y) -> X == Y end, to_upper(S)) end, Alphabet).</lang>▼ all( fun(Letter) -> contains(UpperString, Letter) end, Alphabet).</lang> or, more concisely, <lang Erlang>-module(pangram). -export([is_pangram/1]). ▲is_pangram(S) -> lists:all( fun(XL) -> lists:any(fun (YC) -> XC == YL end, string:to_upper(S) ) end, ~~Alphabet).</lang>~~ lists:seq( hd("A"), hd("Z"))).</lang> =={{header\|F Sharp\|F#}}==

Pangram checker: Difference between revisions