Buchstaben eines Wortes

Wenn du dir nicht sicher bist, in welchem der anderen Foren du die Frage stellen sollst, dann bist du hier im Forum für allgemeine Fragen sicher richtig.
BlackJack

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
Y0Gi
User
Beiträge: 1454
Registriert: Freitag 22. September 2006, 23:05
Wohnort: ja

Ah, das verstehe ich schon eher. Noch nicht sonderlich gut mein Haskell ist. Und wenn ich mir die paar Dutzend Möglichkeiten ansehe, in der man ein Problem in Haskell lösen kann (habe kürzlich eine Website gelesen, die die diversen Ansätze ausführt), dann ist da noch einiges vor mir ;)
Benutzeravatar
keppla
User
Beiträge: 483
Registriert: Montag 31. Oktober 2005, 00:12

wo wir bei ruby waren, ruby geht auch funktional

Code: Alles auswählen

def all_in_string(text, to_include)
   to_include.split("").map{ |c| text.include? c }.all?
end
BlackJack

Weil Io auch schon mal erwähnt wurde:

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
lunar

Ich würde ja jetzt eine Lochkarten-Lösung entwerfen, nur lassen sich die so schlecht posten ...
audax
User
Beiträge: 830
Registriert: Mittwoch 19. Dezember 2007, 10:38

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";
Um nochmal als Ketzer da zu stehen ;)
Leonidas
Python-Forum Veteran
Beiträge: 16025
Registriert: Freitag 20. Juni 2003, 16:30
Kontaktdaten:

lunar hat geschrieben:Ich würde ja jetzt eine Lochkarten-Lösung entwerfen, nur lassen sich die so schlecht posten ...
Ich wünsche mit eine Lösung von WoNaDo, mit turingvollständigen Regulären Ausdrücken in Oniguruma ;)
My god, it's full of CARs! | Leonidasvoice vs (former) Modvoice
lunar

Eine Whitespace-Lösung wäre auch interessant ...
Benutzeravatar
Hyperion
Moderator
Beiträge: 7478
Registriert: Freitag 4. August 2006, 14:56
Wohnort: Hamburg
Kontaktdaten:

lunar hat geschrieben:Eine Whitespace-Lösung wäre auch interessant ...
... von wo es nicht mehr weit zur Brainfuck-Lösung wäre :-D
Benutzeravatar
birkenfeld
Python-Forum Veteran
Beiträge: 1603
Registriert: Montag 20. März 2006, 15:29
Wohnort: Die aufstrebende Universitätsstadt bei München

BlackJack 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
Was haltet ihr denn vom lesbareren und trotzdem recht kurzen

Code: Alles auswählen

f cs = all (`elem` cs)
?
Dann lieber noch Vim 7 als Windows 7.

http://pythonic.pocoo.org/
BlackJack

Och lesbar ist langweilig. Wenn ich lesbar haben will, nehme ich Python. ;-)
Antworten