Advertisement
Guest User

Untitled

a guest
Apr 10th, 2016
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
J 1.06 KB | None | 0 0
  1. print =: 1!:2&2
  2. read =: 1!:1[3
  3.  
  4. in =. (read-.LF)-.CR
  5.  
  6. a=: 3 : 0
  7.  if. y=13 do. 'winter'
  8.  end.
  9. )
  10. b=: 3 : 0
  11.  if. y=13 do. 'winter'
  12.  end.
  13. )
  14. c=: 3 : 0
  15.  if. y=13 do. 'spring'
  16.  end.
  17. )
  18. d=: 3 : 0
  19.  if. y=13 do. 'spring'
  20.  end.
  21. )
  22. e=: 3 : 0
  23.  if. y=13 do. 'spring'
  24.  end.
  25. )
  26. f=: 3 : 0
  27.  if. y=13 do. 'summer'
  28.  end.
  29. )
  30. g=: 3 : 0
  31.  if. y=13 do. 'summer'
  32.  end.
  33. )
  34. h=: 3 : 0
  35.  if. y=13 do. 'summer'
  36.  end.
  37. )
  38. i=: 3 : 0
  39.  if. y=13 do. 'autumn'
  40.  end.
  41. )
  42. j=: 3 : 0
  43.  if. y=13 do. 'autumn'
  44.  end.
  45. )
  46. k=: 3 : 0
  47.  if. y=13 do. 'autumn'
  48.  end.
  49. )
  50. l=: 3 : 0
  51.  if. y=13 do. 'winter'
  52.  end.
  53. )
  54.  
  55.  
  56. print a im =. $ ('January' compare in)
  57. print b im =. $ ('February' compare in)
  58. print c im =. $ ('March' compare in)
  59. print d im =. $ ('April' compare in)
  60. print e im =. $ ('May' compare in)
  61. print f im =. $ ('June' compare in)
  62. print g im =. $ ('July' compare in)
  63. print h im =. $ ('August' compare in)
  64. print i im =. $ ('September' compare in)
  65. print j im =. $ ('October' compare in)
  66. print k im =. $ ('November' compare in)
  67. print l im =. $ ('December' compare in)
  68.  
  69. exit ''
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement