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) rplc CR;';'
- in =. in rplc '.';'g'
- a=: 3 : 0
- if. y=13 do. 'i'
- else. 'f'
- end.
- )
- s =. (> 2 { (;: in))
- t =. (> 2 { (;: in)) rplc 'g';'h'
- tp =. a im =. $ (s compare t)
- wd =. (> 0 { (;: in))
- up=: 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
- ln =. ((# wd) - 1)
- tb =. i.ln
- tk =. ln $ 1
- tbl =. tb + tk
- ups=. ((0 { 3 & u: wd) - 97) { up
- print > tp, ups, tbl { wd
- exit ''
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement