Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ->a{"`1234567890-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./"[/.#{a}/][0]}
- lambda x,k="`1234567890-=qwertyuiop[]\asdfghjkl;'nzxcvbnm<>?":k[k.find(x)-1]
- T`1-90-=QWERTYUIOP[]\ASDF-HJ-L;'¶ZXCVBNM,./``o
- void f(char i){std::string k="`1234567890-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./";std::cout<<k[k.find(i)-1];}
- Input Str1
- "`1234567890-=QWERTYUIOP[]ASDFGHJKL;'ZXCVBNM,./
- sub(Ans,inString(Ans,Str1)-1,1
- ØD”`1¦ṭØqż“[]“;'¶“,./“0-=”Fṡ2UZy
- ØD”`1¦ṭØqż“[]“;'¶“,./“0-=”Fṡ2UZy Main link. Argument: s (string)
- ØD Digits; yield "0123456789".
- ”`1| Replace '0' with a backtick.
- Øq Qwerty; yield
- ["qwertyuiop", "asdfghjkl", "zxcvbnm"].
- ṭ Tack; add "`123456789" as the last element of
- the qwerty array.
- “[]“;'¶“,./“0-=” Yield ["[]\", ";'n", "0-="].
- ż Zip; combine the strings of the array to the
- left with the corresponding strings of the array
- to the right, yielding an array of string pairs.
- F Flatten, yielding a string.
- ṡ2 Obtain all overlapping pairs of characters.
- U Upend; reverse each pair.
- Z Zip, yielding a pair of strings.
- y Translate the input s according to the generated
- replacement table.
- i`¬190-=qwertyuiop[]asdfghjkl;'zxcvbnm,./<esc>/<C-r>a
- hxVp
- 00000000: 6960 ac31 3930 2d3d 7177 6572 7479 7569 i`.190-=qwertyui
- 00000010: 6f70 5b5d 5c61 7364 6667 686a 6b6c 3b27 op[]asdfghjkl;'
- 00000020: 7a78 6376 626e 6d2c 2e2f 1b2f 1261 0a68 zxcvbnm,././.a.h
- 00000030: 7856 70 xVp
- h " move the cursor to the left
- x " delete this character
- Vp " select this line and replace it with the deleted character
- $k="1234567890-=qwertyuiop[]asdfghjkl;'
- zxcvbnm,./";$k[$k.IndexOf((read-host))-1]
- ;D=Dv ·q i"[]\",A i";'",22 +",./")Dg1nDbU
- ;D=Dv ·q i"[]\",A i";'",22 +",./")Dg1nDbU
- ;D=D // Shortcut for QWERTY (with newlines and spaces), assigning to variable D
- v // Setting D to lowercase
- ·q // Joining D into an array with no spaces or newlines
- i"[]\",A // Inserting "[]" into index 10 (A)
- i";'",22 // Inserting ";'" into index 22
- +",./" // Appending ",./"
- Dg // Returns the character at index:
- 1n // -1+
- DbU // Index of U (the input)
- s:$:`1234567890-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./:
- s:(.).*(.)1.*:2:
- '`žhÀ"-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./"JDÀ‡
- '` # 1 char string: `
- žh # Push numbers 0123456789
- À # Rotated 1 left (123456890)
- "-=qwertyuiop[]\asdfghjkl;'nzxcvbnm,./" # Push string literal
- J # Join all elements pushed to the stack to one string
- D # Duplicate
- À # Rotate 1 left
- ‡ # Transliterate: a.get(b.indexOf(input))
- c=>(s="><mnbvcxzn';lkjhgfdsa\][poiuytrewq=-0987654321`")[s.indexOf(c)+1]
- s=>s.replace(/./g,c=>s[s.indexOf(c)+1],s="><mnbvcxzn';lkjhgfdsa\][poiuytrewq=-0987654321`")
- @K"`1234567890-=qwertyuiop[]\asdfghjkl;'
- zxcvbnm,./"txK
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement