Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 1st, 2012  |  syntax: None  |  size: 0.75 KB  |  hits: 13  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. number_to_guess := Random value(0, 100) floor
  2. number_guessed := -1
  3. last_number_guessed := -1
  4. last_difference := -1
  5. difference := -1
  6. tries := 0
  7.  
  8. while (number_guessed != number_to_guess and tries < 10,
  9.         last_number_guessed := number_guessed
  10.         last_difference := difference
  11.        
  12.         writeln("Guess a number?")
  13.         number_guessed := (File standardInput readLine asNumber)
  14.         if (number_guessed == number_to_guess, break)
  15.        
  16.         if (number_guessed > number_to_guess,
  17.                 difference := number_guessed - number_to_guess,
  18.                 difference := number_to_guess - number_guessed)
  19.        
  20.         if (difference > last_difference and tries > 0, "colder!" println, if (tries > 0, "hotter!" println))
  21.        
  22.         tries := tries + 1
  23.        
  24. )
  25.  
  26. if (number_guessed == number_to_guess, "You did it!" println, "Loser!" println)
create a new version of this paste RAW Paste Data