sexcontraprio 820 B

12345678910111213141516171819202122232425
  1. # sexcontraprio
  2. !{Function that when given 2 different contraception types, returns the "higher priority" of the two. In brief, if PC had sex with the same guy twice with any two random contraceptive methods, which one would she think was the reason she got pregnant?}
  3. killvar 'conprio'
  4. conprio[0] = 0 !{No contraception}
  5. conprio[1] = 1 !{Lied about the pill}
  6. conprio[2] = 4 !{Condom broke}
  7. conprio[3] = 5 !{Condom fell off}
  8. conprio[4] = 7 !{You sabotaged the condom}
  9. conprio[5] = 6 !{Someone else sabotaged the condom}
  10. conprio[6] = 2 !{You were on the pill}
  11. conprio[7] = 8 !{Precum had sperm in it}
  12. i = 0
  13. :cumarrputecl
  14. if i < arrsize('conprio'):
  15. if ARGS[0] = conprio[i] or ARGS[1] = conprio[i]:
  16. RESULT = conprio[i]
  17. else
  18. i += 1
  19. jump 'cumarrputecl'
  20. end
  21. end
  22. --- sexcontraprio ---------------------------------