Das deutsche Python-Forum

Code: Alles auswählen

\ Random Numbers

\ The algorithm is ported from cc65.

| create seed 5 allot

: seed! ( n -- )
  seed 5 erase  seed 3+ ! ;

: seed@ ( -- n ) seed 3+ @ ;

: random ( -- n )
  seed 1+ 2@  seed 2@ d+
  $3.1415927 d+  seed 1+ 2!  seed 2+ @ ;

: randomize ( -- )
  $d012 c@ 256 *  $a0 c@ or  seed! ;

: randint ( max -- n ) random swap mod ;

1 seed!

Code: Alles auswählen

with Ada.Text_IO;
use  Ada.Text_IO;
with Ada.Numerics.Discrete_Random;

procedure GuessTheNumber is
   type SecretType is range 1 .. 100;

   package Tries_IO     is new Ada.Text_IO.Integer_IO (Positive);
   package Secret_IO    is new Ada.Text_IO.Integer_IO (SecretType);
   package RandomSecret is new Ada.Numerics.Discrete_Random (SecretType);

   Tries         : Positive := 1;
   Secret, Guess : SecretType;
   RandomState   : RandomSecret.Generator;

begin
   RandomSecret.Reset (RandomState);
   Secret := RandomSecret.Random (RandomState);

   loop
      begin
         Tries_IO.Put (Tries, 1);
         Put (". guess: ");
         Secret_IO.Get (Guess);

         exit when Guess = Secret;

         Put ("Your number is ");
         if Guess > Secret then
            Put_Line ("greater.");
         else
            Put_Line ("smaller.");
         end if;

         Tries := Tries + 1;
      exception
         when Data_Error =>
            Put ("Pleaser enter a number in range ");
            Secret_IO.Put (SecretType'First, 1);
            Put (" .. ");
            Secret_IO.Put (SecretType'Last, 1);
            Put_Line ("!");
            -- Skip input.  Neccessary if input was no valid number literal.
            declare
               Dummy : String (1 .. 80);
               Last  : Natural;
            begin
               Get_Line (Dummy, Last);
            end;
      end;
   end loop;

   Put ("Yeah!  You guessed correct in ");
   Tries_IO.Put (Tries, 1);
   Put_Line (" tries.");
end GuessTheNumber;

Code: Alles auswählen

import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
import java.util.Random;


class Guesser {
    
    private int currentGuess;
    private int secret;
    private int tries;
    
    public Guesser() {
        secret = new Random().nextInt(100) + 1;
    }
    
    public void tryGuess(int guess) {
        currentGuess = guess;
        tries++;
    }
    
    public int checkGuess() {
        if (currentGuess < secret) {
            return -1;
        } else if (currentGuess > secret) {
            return 1;
        } else {
            return 0;
        }
    }
    
    public boolean isRight() {
        return secret == currentGuess;
    }

    public int getTries() {
        return tries;
    }

}


public class Guess {
    static String ERROR = "Bitte gib eine Zahl zwischen 1 und 100 ein.";

    public static void main(String[] args) {
        InputStreamReader istream = new InputStreamReader(System.in) ;
        BufferedReader bufRead = new BufferedReader(istream) ;

        Guesser guess = new Guesser();
        int currentGuessing;
        String rawGuessed;
        do {
            System.out.println("Gib deine Vermutung ab:");
            try {
                rawGuessed = bufRead.readLine(); 
            } catch (IOException e) {
                System.out.println(ERROR);
                continue;
            }
            currentGuessing = Integer.parseInt(rawGuessed);
            if (currentGuessing == 0) {
                System.out.println(ERROR);
                continue;
            }
            guess.tryGuess(currentGuessing);
            switch (guess.checkGuess()) {
            case -1:
                System.out.println("Das war zu niedrig!");
                break;
            case 1:
                System.out.println("Das war zu hoch!");
                break;
            }
        } while (! guess.isRight());
        System.out.printf("Richtig! Du hast %d Versuche gebraucht!", guess.getTries());
    }

}