Die Signatur war bei mir ja auch unnötig einschränkend.
Code: Alles auswählen
f :: (Eq a) => [a] -> [a] -> Bool
f = all . flip elem
Code: Alles auswählen
f :: (Eq a) => [a] -> [a] -> Bool
f = all . flip elem
Code: Alles auswählen
def all_in_string(text, to_include)
to_include.split("").map{ |c| text.include? c }.all?
end
Code: Alles auswählen
#!/usr/bin/env io
f := method(characters, string,
string foreach(c, characters contains(c) ifTrue(return true))
false
)
f("tes", "test") println
f("tes", "hallo") println
Code: Alles auswählen
use strict;
use warnings;
sub all_in_string {
foreach (split //, $_[1]) {
return 0 unless $_[0] =~ /$_/
} 1;
}
print "is in there\n" if all_in_string "Foobar", "raboF";
print "is not in there\n" unless all_in_string "Foobar", "xyz";
Ich wünsche mit eine Lösung von WoNaDo, mit turingvollständigen Regulären Ausdrücken in Onigurumalunar hat geschrieben:Ich würde ja jetzt eine Lochkarten-Lösung entwerfen, nur lassen sich die so schlecht posten ...
Was haltet ihr denn vom lesbareren und trotzdem recht kurzenBlackJack hat geschrieben:Allerdings. Ich wollt's halt verständlich halten.
Die Signatur war bei mir ja auch unnötig einschränkend.
Code: Alles auswählen
f :: (Eq a) => [a] -> [a] -> Bool f = all . flip elem
Code: Alles auswählen
f cs = all (`elem` cs)