das interesse liegt bei CS und nicht bei HÜ... checkst des net, bam oida!

Zitat von kampfhamster

lol^^
wir haben im haus 2 copmuter:thumb:
der eine daweil ohne inet<--MEINER:wein:
der eine mit<-- von meine eltern

So was wie du hat Eltern? Hoffentlich nie Kinder.

Zitat von daff

Außerdem kann ich empfehlen ... zu lesen.

Er kann ohne Internet nicht lesen, is das noch immer nicht durchgsickert?

Außerdem sind für ihn nicht mehr als...

Zitat von Venefica

programmieren wird dir das hier wohl keiner

Ganz im Gegenteil, Madame!

Zitat von kampfhamster

viel glück beim umformen für mich

Umformen? Kannst du haben!

module Main where
import IO


main :: IO ()
main =
    do
        putStr "Zahl mit Prüfziffer eingeben: "
        hFlush stdout
        input <- getLine
        if valid input
            then
                testChecksum (map digitToInt input)
            else
                putStrLn "ungültiger Zahlenwert"


valid :: [Char] -> Bool
valid str =
    length str >= 2 && length str <= 7 && all isDigit str


testChecksum :: [Int] -> IO ()
testChecksum str =
    do
        if checksum (init str) == last str
            then
                putStrLn "okay"
            else
                putStrLn ("falsche Prüfziffer - richtige lautet: "
                          ++ show (checksum (init str)))


-- diese Definition ist vielleicht ein bissi zu cute
checksum :: [Int] -> Int
checksum = (flip mod) 10 . checksum' . reverse


checksum' :: [Int] -> Int
checksum' []       = 0
checksum' [x]      = x
checksum' (x:y:xs) = x + reduce (2 * y) + checksum' xs
    where
        reduce n
            | n >= 10   = 1 + (n `mod` 10)
            | otherwise = n

Das deckt sich nicht vollständig mit der Spezifikation, aber CBA.

Zitat von Plantschkuh!

Ganz im Gegenteil, Madame!

Genau!

Hier ist eine Version in C; leider ist sie umständlich programmiert, nicht kommentiert, nicht ganz lesbar und aus irgendeinem Grund auch noch ROT-13-verschlüsselt.

#vapyhqr <fgqvb.u>
vag cm;vag thrygvtr_mnuy(ybat mnuy){erghea ((hafvtarq ybat)mnuy)<0k989680;}
vag cehrsmvssre(ybat mnuy){erghea (mnuy%10+(2*((mnuy/=10)%10))%10+(2*(mnuy%10))/10+(mnuy/=10)%10+(2*((mnuy/=10)%10))%10+(2*(mnuy%10))/10+(mnuy/=10)%10+(2*((mnuy/=10)%10))%10+(2*(mnuy%10))/10+(mnuy/=10))%10;}
vag grfg(ybat mnuy){erghea (cm=cehrsmvssre(mnuy/0kn))==mnuy%10;}
znva(){ybat m;juvyr(fpnas("%yq",&m)!=RBS)cevags(thrygvtr_mnuy(m)?(grfg(m)?"bxnl\a":"snyfpur Ceüsmvssre - evpugvtr ynhgrg: %q\a"):"hatüygvtre Mnuyrajreg\a", cm);}

Mit einem Palindrom hättest uns beeindruckt!

ihr seid halt viel zu nett für diese welt :druegg:

Zitat von Wolfibolfi

Mit einem Palindrom hättest uns beeindruckt!

Bitte schön.

#vapyhqr <fgqvb.u>//
vag cm;vag thrygvtr_mnuy(ybat mnuy){erghea ((hafvtarq ybat)mnuy)<0k989680;}vag cehrsmvssre(ybat mnuy){erghea (mnuy%10+(2*((mnuy/=10)%10))%10+(2*(mnuy%10))/10+(mnuy/=10)%10+(2*((mnuy/=10)%10))%10+(2*(mnuy%10))/10+(mnuy/=10)%10+(2*((mnuy/=10)%10))%10+(2*(mnuy%10))/10+(mnuy/=10))%10;}vag grfg(ybat mnuy){erghea (cm=cehrsmvssre(mnuy/0kn))==mnuy%10;}znva(){ybat m;juvyr(fpnas("%yq",&m)!=RBS)cevags(thrygvtr_mnuy(m)?(grfg(m)?"bxnl\a":"snyfpur Ceüsmvssre - evpugvtr ynhgrg: %q\a"):"hatüygvtre Mnuyrajreg\a", cm);}//
//};)mc ,"a\gerjaryunM ertvgyütah":)"a\q% :grghny rtvgupve - erssvmsüeC rupfyns":"a\lnxb"?)m(gfrg(?)m(yunm_rtvgyrht(sgavec)SBR=!)m&,"qy%"(sanpf(ryvuj;m taby{)(avnz};01%yunm==))nk0/yunm(erssvmsrhec=mc( aehgre{)yunm taby(gfrg gav};01%))01=/yunm(+01/))01%yunm(*2(+01%))01%)01=/yunm((*2(+01%)01=/yunm(+01/))01%yunm(*2(+01%))01%)01=/yunm((*2(+01%)01=/yunm(+01/))01%yunm(*2(+01%))01%)01=/yunm((*2(+01%yunm( aehgre{)yunm taby(erssvmsrhec gav};086989k0<)yunm)taby qratvfah(( aehgre{)yunm taby(yunm_rtvgyrht gav;mc gav
//>u.bvqgf< rqhypav#

Hat sogar eine Zeile weniger!

You are my personal hero, sir!:ahhh:

rofl....

vergiss es, wir sind nicht nett!

aber spiel cs damit du nicht denken brauchst. übrigens cs künste qualifizieren dich sicher für eine ausbildung wo man programmieren muss

Zitat von viper

und aus irgendeinem Grund auch noch ROT-13-verschlüsselt.

Jetzt hast ihm zuviel veraten, anscheinend kennt er doch den g? befehl im vim...

das hättet ihr euch aber denken können, CS kann er ja auch starten....

weil der vim kennt

wahnsinn! da macht man sich extra arbeit um unleserlichen code zu schreiben, als die simple frage eines schülers zu beantworten. hey! auch IHR habt mal mit dem programmieren angefangen! man hat halt hin und wieder fragen. irgendwie vermitteln wir hier das falsche bild, wenn sich immer gleich aufgeregt wird.

in erwartung auf viele viele böse antworten,
yours Neo_II

Zitat von kampfhamster

es gibt wenigstens unter euch auch nette menschen DANKE:wave: :thumb:
danke für eure hilfe

meint ihr, er gibt den code so ab wie er hierhergeschrieben wurde?

Nein unser Beruf ist es alle Aufgaben für andere zu machen und dafür nichts zu verlangen.. Wir sind sowieso nur geeks!!!!!11