Advertisement
Guest User

Untitled

a guest
Apr 24th, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.37 KB | None | 0 0
  1. str←⎕inp 'EOF'
  2. <select>
  3. <option value="volvo">Volvo</option>
  4. <option value="saab">Saab</option>
  5. <option value="mercedes">Mercedes</option>
  6. <option value="audi">Audi</option>
  7. </select>
  8. EOF
  9. str←∊str
  10. '<>'⍳str
  11. 3 1 3 3 3 3 3 3 2 3 3 1 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 3 3 3 3 3 1 3
  12. 3 3 3 3 3 3 2 3 3 1 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 3 3 3 3 1 3 3
  13. 3 3 3 3 3 2 3 3 1 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 3 3 3 3
  14. 3 3 3 3 1 3 3 3 3 3 3 3 2 3 3 1 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 3
  15. 3 3 3 1 3 3 3 3 3 3 3 2 1 3 3 3 3 3 3 3 2 3
  16. (1 ¯1 0)['<>'⍳str]
  17. 0 1 0 0 0 0 0 0 ¯1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ¯1 0 0 0 0 0 1
  18. 0 0 0 0 0 0 0 ¯1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ¯1 0 0 0 0 1
  19. 0 0 0 0 0 0 0 ¯1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ¯1 0
  20. 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 ¯1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  21. 0 0 ¯1 0 0 0 0 1 0 0 0 0 0 0 0 ¯1 1 0 0 0 0 0 0 0 ¯1 0
  22. +\(1 ¯1 0)['<>'⍳str]
  23. 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 1 1
  24. 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 1 1 1
  25. 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0
  26. 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
  27. 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0
  28. ~+\(1 ¯1 0)['<>'⍳str]
  29. 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0
  30. 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0
  31. 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1
  32. 1 1 1 1 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1
  33. 1 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 1
  34. ((~+\(1 ¯1 0)['<>'⍳str])⊂str)
  35. ╔═════════════════════════════════════════════════════════════════════════╗
  36. ║┏→┓ ┏→━━┓ ┏→━━━━━┓ ┏→━━┓ ┏→━━━━┓ ┏→━━┓ ┏→━━━━━━━━┓ ┏→━━┓ ┏→━━━━┓ ┏→┓ ┏→━┓║
  37. ║┃ ┃ ┃> ┃ ┃>Volvo┃ ┃> ┃ ┃>Saab┃ ┃> ┃ ┃>Mercedes┃ ┃> ┃ ┃>Audi┃ ┃>┃ ┃> ┃║
  38. ║┗━┛ ┗━━━┛ ┗━━━━━━┛ ┗━━━┛ ┗━━━━━┛ ┗━━━┛ ┗━━━━━━━━━┛ ┗━━━┛ ┗━━━━━┛ ┗━┛ ┗━━┛║
  39. ╚═════════════════════════════════════════════════════════════════════════╝
  40. (((~+\(1 ¯1 0)['<>'⍳str])⊂str)~¨' ')
  41. ╔════════════════════════════════════════════════════════════════╗
  42. ║┏⊖┓ ┏→┓ ┏→━━━━━┓ ┏→┓ ┏→━━━━┓ ┏→┓ ┏→━━━━━━━━┓ ┏→┓ ┏→━━━━┓ ┏→┓ ┏→┓║
  43. ║┃ ┃ ┃>┃ ┃>Volvo┃ ┃>┃ ┃>Saab┃ ┃>┃ ┃>Mercedes┃ ┃>┃ ┃>Audi┃ ┃>┃ ┃>┃║
  44. ║┗━┛ ┗━┛ ┗━━━━━━┛ ┗━┛ ┗━━━━━┛ ┗━┛ ┗━━━━━━━━━┛ ┗━┛ ┗━━━━━┛ ┗━┛ ┗━┛║
  45. ╚════════════════════════════════════════════════════════════════╝
  46. (((~+\(1 ¯1 0)['<>'⍳str])⊂str)~¨' ')~⊂,'>'
  47. ╔════════════════════════════════════════╗
  48. ║┏⊖┓ ┏→━━━━━┓ ┏→━━━━┓ ┏→━━━━━━━━┓ ┏→━━━━┓║
  49. ║┃ ┃ ┃>Volvo┃ ┃>Saab┃ ┃>Mercedes┃ ┃>Audi┃║
  50. ║┗━┛ ┗━━━━━━┛ ┗━━━━━┛ ┗━━━━━━━━━┛ ┗━━━━━┛║
  51. ╚════════════════════════════════════════╝
  52. 1↓(((~+\(1 ¯1 0)['<>'⍳str])⊂str)~¨' ')~⊂,'>'
  53. ╔════════════════════════════════════╗
  54. ║┏→━━━━━┓ ┏→━━━━┓ ┏→━━━━━━━━┓ ┏→━━━━┓║
  55. ║┃>Volvo┃ ┃>Saab┃ ┃>Mercedes┃ ┃>Audi┃║
  56. ║┗━━━━━━┛ ┗━━━━━┛ ┗━━━━━━━━━┛ ┗━━━━━┛║
  57. ╚════════════════════════════════════╝
  58. 1↓¨1↓(((~+\(1 ¯1 0)['<>'⍳str])⊂str)~¨' ')~⊂,'>'
  59. ╔════════════════════════════════╗
  60. ║┏→━━━━┓ ┏→━━━┓ ┏→━━━━━━━┓ ┏→━━━┓║
  61. ║┃Volvo┃ ┃Saab┃ ┃Mercedes┃ ┃Audi┃║
  62. ║┗━━━━━┛ ┗━━━━┛ ┗━━━━━━━━┛ ┗━━━━┛║
  63. ╚════════════════════════════════╝
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement