fork download
  1. #pragma indent
  2.  
  3. using Nemerle.Collections;
  4. using Nemerle.Text;
  5. using System.IO
  6.  
  7. module Program
  8.  
  9. Main() : void
  10. def r = File.ReadLines(@"d:\in.txt").Map(t=>solve(t).ToString())
  11. File.WriteAllLines(@"d:\out.txt", r)
  12.  
  13. solve (task : string) : int
  14. def action = regexp match(task.ToLower())
  15. | @".*(поровну|равномерно|одинаково|за каждым|каждому из них|один предмет|если известно|в каждое|сколько в каждом).*" => _/_
  16. | @".*(кажд(ый|ой|ому|ом) из которых|вместе взятых|вышло вместе|по \d+|(ежедневно|ровно) по| сколько всего\?).*" => _*_
  17. | @".*(лишних|меньше|а остальные|и несколько|назад|продолжало|первоначально|осталось|из которых \d+ было|из них|отдано \d+).*" => _-_
  18. | _ => _+_
  19. regexp match(task) { | @".*(\W|^)+(?<x : int>\d+)\W.*\W(?<y : int>\d+)\W.*" => if(x>y) action(x,y) else action(y,x); | _ => -1 }
Not running #stdin #stdout 0s 0KB
stdin
Standard input is empty
stdout
Standard output is empty