Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (p=PadLeft;q=IntegerDigits;g=Join@@(#~q~2~p~7&/@ToCharacterCode["w$]m.k{%o"][[1+q@#]])&;h=(v=g@#2~#~96-g@i~#~96;Tr@v==0&&Tr@Abs@v<=2#3)&;For[i=10^Tr@g@#,!h[p,##]&&!h[PadRight,##],--i,];i)&
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement