Das deutsche Python-Forum

Code: Alles auswählen

#! /usr/bin/env factor
USING: combinators io kernel math math.order math.parser math.ranges random ;
IN: number-guessing

: ask-for-number ( -- n )  "Your guess: " write flush  readln string>number ;

: check-guess ( secret guess -- ? )
    over <=>
    { { +eq+ [ t "correct" ] }
      { +lt+ [ f "smaller" ] }
      { +gt+ [ f "greater" ] } } case
    "Your guess is " write write "." print ;

: loop ( n secret -- n )
    over number>string write ". try." print
    ask-for-number
    check-guess
    [ drop ] [ [ 1+ ] dip loop ] if ;

: main ( -- )
    1  100 [1,b] random  loop
    "Yeah!  You found it with " write  number>string write  " tries." print ;

main

Code: Alles auswählen

import random
zahl=random.randint(1,100) #zufall zwischen 1 und 100
anzahl=1
while zahl != meineZahl:
    meineZahl=int(raw_input("Ich habe eine Zahl zwischen 1 und 100: rate "))
    if meineZahl==zahl:
        print "Richtig, die Zahl war", zahl , "Sehr gut, du hast es in", anzahl,"Versuchen geschafft"
    elif meineZahl<zahl:
        print"Sorry zu klein"
    elif meineZahl>zahl:
        print "Sorry zu gross"
    anzahl+=1

Code: Alles auswählen

perl -Mfeature=say -e '$r=int rand(99)+1;$t=1; say "guess a number for 1 to 100"; while(($guess=<>)!=$r){ $t++;say "Guess is ". (($guess>$r)?"higher":"lower")} say "you needed $t tries"'