Das deutsche Python-Forum

Code: Alles auswählen

char prompt_user(char msg[]){
    char taste;
    int status;
    puts(msg);
    status = scanf("%c", &taste);
    fflush(stdin);
    return taste;
}

Code: Alles auswählen

char prompt_user(char msg[]){
	char taste;
	puts(msg);
	if(scanf("%c", &taste) != 1)
		exit(EXIT_FAILURE);
	fflush(stdin);
    return taste;  
}

Code: Alles auswählen

$ scan-build gcc -std=c99 pf.c
ANALYZE: pf.c main
ANALYZE: pf.c prompt_user
pf.c:34:2: warning: Value stored to 'status' is never read
        status = scanf("%c", &taste);
        ^        ~~~~~~~~~~~~~~~~~~~
ANALYZE: pf.c run_game
1 warning generated.
scan-build: 1 bugs found.

Code: Alles auswählen

Function YesNo(prompt As String) As Integer
    Dim antwort As String
    Print prompt;
    Input  " (y/n)"; antwort
    Return Left(antwort, 1) = "y"
End Function

Sub Intro
    Dim antwort As String
    Print
    Print
    Print
    Print "            Denke dir eine Zahl zwischen 1 und 100 aus."
    Print "            Ich werde versuchen, diese Zahl zu erraten."
    Print
    Print "            Gib ein:"
    Print "            + , wenn mein Tipp zu klein ist."
    Print "            - , wenn mein Tipp zu gross ist."
    Print "            = , wenn mein Tipp stimmt."
    Print
    Print "            Hast du deine Zahl? Dann druecke die Eingabetaste!"
    Input "", antwort
End Sub

Sub Spiel
    Dim As Integer unten = 0, oben = 100, erraten = 0, versuche = 0
    Dim tipp As Integer, antwort As String
    Intro
    While Not erraten
        versuche = versuche + 1
        tipp = (unten + oben) / 2
        Print "Ist Deine Zahl"; tipp;
        Input antwort
        Select Case antwort
        Case "+"
            unten = tipp + 1
        Case "-"
            unten = tipp - 1
        Case "="
            erraten = -1
        Case Else
            Print "Das ist eine ungueltige Antwort!"
            Print "Antworte mit +/=/-"
            versuche = versuche - 1
        End Select
        If unten = oben Then
            tipp = unten
            erraten = -1
        End If
    Wend
    Print "Ich habe mit"; versuche; " Fragen herausgefunden:"
    Print "Deine Zahl ist"; tipp; "!"
End Sub

Dim weiterspielen As Integer = -1

Print
Print
Print
Print
Print "            Z A H L E N R A T E N"
Print "            ====================="
Print
While weiterspielen
    Spiel
    weiterspielen = YesNo("Noch ein Spiel")
Wend
Print
Print "Ich hoffe, Du hattest Spass mit mir!"

Code: Alles auswählen

nelson@MECL-LAP3:~/src/C/snippets$ gcc -o guessanumber -Wall -O3 -Werror -pedantic -std=c99 -Wextra guessanumber.c 
nelson@MECL-LAP3:~/src/C/snippets$ 

Code: Alles auswählen

import re
s = """...."""
s = "\n".join(s.splitlines()[6:])
s = re.sub(r'(?s)(["\'])(.*?)\1', lambda m:'%s%s%s' % (m.group(1), m.group(2).replace("\n", "\\n"), m.group(1)), s)
s = re.sub(r"(?s)/\*.*?\*/", "", s)
s = re.sub(r"\w+\s+(\w+)\(void\)\{", "def \\1():", s)
s = re.sub(r"int\s+(\w+)\(char\s+(\w+)\s*\[\]\s*\)\{", "def \\1(\\2):", s)
s = re.sub(r"while\(getchar\(\) != '\\n'\);", "pass", s)
s = re.sub(r"int (tipp)?", "", s)
s = re.sub(r"char \w+;", "", s)
s = re.sub(r"else if", "elif", s)
s = re.sub(r"else(\s*\{)?", "else:", s) 
s = re.sub(r"(if\s*\(.*\))\n", "\\1:\n", s)
s = re.sub(r"\{", ":", s)
s = re.sub(r"\}", "", s)
s = re.sub(r'printf\((".*?"),', "print(\\1 % ", s)
s = re.sub(r'printf\(', "print(", s)
s = re.sub(r'scanf\("%c",\s*&(\w+)\)', "\\1 = input()", s)
s = re.sub(r"\(! ", "(not ", s)
exec(s)
main()

Code: Alles auswählen

open Printf

type guess_match = TooLow | TooHigh | Matches

let rec does_guess_match guess =
  printf "Ist Deine Zahl %i?\n" guess;
  (print_string "> ");
  let resp = read_line () in
    match resp with
      | "=" -> Matches
      | "-" -> TooHigh
      | "+" -> TooLow
      | _ ->
          print_newline
            (print_string "Ungültige Eingabe, nur =,-,+ erlaubt");
          does_guess_match guess

let rec guess min max =
  let guessed = (min + max) / 2 in
  let next_try (guessed, tries) = (guessed, tries + 1) in
    match does_guess_match guessed with
      | Matches -> (guessed, 1)
      | TooLow -> next_try (guess (guessed+1) max)
      | TooHigh -> next_try (guess min (guessed-1))

let intro () =
  print_newline ();
  print_newline ();
  print_newline ();
  print_newline (print_string  "            Denke dir eine Zahl zwischen 1 und 100 aus.");
  print_newline (print_string  "            Ich werde versuchen, diese Zahl zu erraten.");
  print_newline ();
  print_newline (print_string  "            Gib ein:");
  print_newline (print_string  "            + , wenn mein Tipp zu klein ist.");
  print_newline (print_string  "            - , wenn mein Tipp zu gross ist.");
  print_newline (print_string  "            = , wenn mein Tipp stimmt.");
  print_newline ();
  print_newline (print_string  "            Hast du deine Zahl? Dann druecke die Eingabetaste!");
  read_line ()


let rec yes_no prompt =
  printf "%s [j|n] >" prompt;
  let response = read_line () in
    match String.lowercase response with
      | "j" -> true
      | "n" -> false
      | _ ->
          print_newline (print_string "Ungültige Antwort");
          yes_no prompt


let rec game () =
  intro ();
  let guessed, tries = guess 1 100 in
    printf "Ich habe Deine Zahl mit %i Versuche herausgefunden\n" tries;
    printf "Deine Zahl ist %i\n" guessed;
    if yes_no "Neues Spiel?" then
      game ()


let _ = game ()