Advertisement
Guest User

Untitled

a guest
Aug 17th, 2017
534
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.00 KB | None | 0 0
  1. ->a{"`1234567890-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./"[/.#{a}/][0]}
  2.  
  3. lambda x,k="`1234567890-=qwertyuiop[]\asdfghjkl;'nzxcvbnm<>?":k[k.‌​find(x)-1]
  4.  
  5. T`1-90-=QWERTYUIOP[]\ASDF-HJ-L;'¶ZXCVBNM,./``o
  6.  
  7. void f(char i){std::string k="`1234567890-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./";std::cout<<k[k.find(i)-1];}
  8.  
  9. Input Str1
  10. "`1234567890-=QWERTYUIOP[]ASDFGHJKL;'ZXCVBNM,./
  11. sub(Ans,inString(Ans,Str1)-1,1
  12.  
  13. ØD”`1¦ṭØqż“[]“;'¶“,./“0-=”Fṡ2UZy
  14.  
  15. ØD”`1¦ṭØqż“[]“;'¶“,./“0-=”Fṡ2UZy Main link. Argument: s (string)
  16.  
  17. ØD Digits; yield "0123456789".
  18. ”`1| Replace '0' with a backtick.
  19. Øq Qwerty; yield
  20. ["qwertyuiop", "asdfghjkl", "zxcvbnm"].
  21. ṭ Tack; add "`123456789" as the last element of
  22. the qwerty array.
  23. “[]“;'¶“,./“0-=” Yield ["[]\", ";'n", "0-="].
  24. ż Zip; combine the strings of the array to the
  25. left with the corresponding strings of the array
  26. to the right, yielding an array of string pairs.
  27. F Flatten, yielding a string.
  28. ṡ2 Obtain all overlapping pairs of characters.
  29. U Upend; reverse each pair.
  30. Z Zip, yielding a pair of strings.
  31. y Translate the input s according to the generated
  32. replacement table.
  33.  
  34. i`¬190-=qwertyuiop[]asdfghjkl;'zxcvbnm,./<esc>/<C-r>a
  35. hxVp
  36.  
  37. 00000000: 6960 ac31 3930 2d3d 7177 6572 7479 7569 i`.190-=qwertyui
  38. 00000010: 6f70 5b5d 5c61 7364 6667 686a 6b6c 3b27 op[]asdfghjkl;'
  39. 00000020: 7a78 6376 626e 6d2c 2e2f 1b2f 1261 0a68 zxcvbnm,././.a.h
  40. 00000030: 7856 70 xVp
  41.  
  42. h " move the cursor to the left
  43. x " delete this character
  44. Vp " select this line and replace it with the deleted character
  45.  
  46. $k="1234567890-=qwertyuiop[]asdfghjkl;'
  47. zxcvbnm,./";$k[$k.IndexOf((read-host))-1]
  48.  
  49. ;D=Dv ·q i"[]\",A i";'",22 +",./")Dg1nDbU
  50.  
  51. ;D=Dv ·q i"[]\",A i";'",22 +",./")Dg1nDbU
  52.  
  53. ;D=D // Shortcut for QWERTY (with newlines and spaces), assigning to variable D
  54. v // Setting D to lowercase
  55. ·q // Joining D into an array with no spaces or newlines
  56. i"[]\",A // Inserting "[]" into index 10 (A)
  57. i";'",22 // Inserting ";'" into index 22
  58. +",./" // Appending ",./"
  59. Dg // Returns the character at index:
  60. 1n // -1+
  61. DbU // Index of U (the input)
  62.  
  63. s:$:`1234567890-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./:
  64. s:(.).*(.)1.*:2:
  65.  
  66. '`žhÀ"-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./"JDÀ‡
  67.  
  68. '` # 1 char string: `
  69. žh # Push numbers 0123456789
  70. À # Rotated 1 left (123456890)
  71. "-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./" # Push string literal
  72. J # Join all elements pushed to the stack to one string
  73. D # Duplicate
  74. À # Rotate 1 left
  75. ‡ # Transliterate: a.get(b.indexOf(input))
  76.  
  77. c=>(s="><mnbvcxzn';lkjhgfdsa\][poiuytrewq=-0987654321`")[s.indexOf(c)+1]
  78.  
  79. s=>s.replace(/./g,c=>s[s.indexOf(c)+1],s="><mnbvcxzn';lkjhgfdsa\][poiuytrewq=-0987654321`")
  80.  
  81. @K"`1234567890-=qwertyuiop[]\asdfghjkl;'
  82. zxcvbnm,./"txK
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement