Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- print =: 1!:2&2
- read =: 1!:1[3
- in =. (read-.LF)-.CR
- a=: 3 : 0
- if. y=13 do. 'winter'
- end.
- )
- b=: 3 : 0
- if. y=13 do. 'winter'
- end.
- )
- c=: 3 : 0
- if. y=13 do. 'spring'
- end.
- )
- d=: 3 : 0
- if. y=13 do. 'spring'
- end.
- )
- e=: 3 : 0
- if. y=13 do. 'spring'
- end.
- )
- f=: 3 : 0
- if. y=13 do. 'summer'
- end.
- )
- g=: 3 : 0
- if. y=13 do. 'summer'
- end.
- )
- h=: 3 : 0
- if. y=13 do. 'summer'
- end.
- )
- i=: 3 : 0
- if. y=13 do. 'autumn'
- end.
- )
- j=: 3 : 0
- if. y=13 do. 'autumn'
- end.
- )
- k=: 3 : 0
- if. y=13 do. 'autumn'
- end.
- )
- l=: 3 : 0
- if. y=13 do. 'winter'
- end.
- )
- print a im =. $ ('January' compare in)
- print b im =. $ ('February' compare in)
- print c im =. $ ('March' compare in)
- print d im =. $ ('April' compare in)
- print e im =. $ ('May' compare in)
- print f im =. $ ('June' compare in)
- print g im =. $ ('July' compare in)
- print h im =. $ ('August' compare in)
- print i im =. $ ('September' compare in)
- print j im =. $ ('October' compare in)
- print k im =. $ ('November' compare in)
- print l im =. $ ('December' compare in)
- exit ''
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement