Merge pull request #562 from stephancom/52-kinema-ruby

52-Kinema: ruby

52_Kinema/ruby/kinema.rb

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby
+
+# Kinema
+# reinterpreted from BASIC by stephan.com
+
+EPSILON = 0.15
+
+def close?(guess, answer)
+  (guess-answer).abs < answer * EPSILON
+end
+
+def ask(text, answer)
+  puts text
+  guess = gets.strip.to_f
+  if close?(guess, answer)
+    puts 'Close enough'
+    @score += 1
+  else
+    puts 'Not even close....'
+  end
+
+  puts "Correct answer is #{answer}"
+end
+
+puts 'Kinema'.center(80)
+puts 'Adapted by stephan.com'.center(80)
+puts; puts; puts;
+
+loop do
+  puts; puts
+  @score = 0
+  v = 5 + rand(35)
+
+  puts "A ball is thrown upwards at #{v} meters per second"
+
+  ask 'How high will it go? (in meters)', 0.05 * v * v
+  ask 'How long until it returns? (in seconds)', v/5.0
+
+  t = 1 + rand(2*v)/10.0
+  ask "What will its velocity be after #{t} seconds?", v - 10 * t
+  puts
+  print "#{@score} right out of 3."
+  print " not bad" if @score > 1
+  puts
+end