fork(1) download
  1. --[[
  2. fn x => fn y => fn z => if x then y else z
  3. --]]
  4. function _styx_builtin_if(c)
  5. return function(t)
  6. return function(f)
  7. if c then
  8. return t()
  9. else
  10. return f()
  11. end
  12. end
  13. end
  14. end
  15. function f8(p)
  16. v6 = p
  17. return v2
  18. end
  19. function f23(p)
  20. v1 = p
  21. v21 = f20
  22. return v21
  23. end
  24. function f17(p)
  25. v3 = p
  26. v4 = _styx_builtin_if
  27. v5 = v4(v1)
  28. v9 = f8
  29. v10 = v5(v9)
  30. v14 = f13
  31. v15 = v10(v14)
  32. return v15
  33. end
  34. function f13(p)
  35. v11 = p
  36. return v3
  37. end
  38. function f20(p)
  39. v2 = p
  40. v18 = f17
  41. return v18
  42. end
  43.  
  44. print(f23(true)(1)(2))
  45. print(f23(false)(1)(2))
Success #stdin #stdout 0.02s 2496KB
stdin
Standard input is empty
stdout
1
2