Advertisement
Guest User

Untitled

a guest
Apr 19th, 2015
194
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Awk 0.18 KB | None | 0 0
  1. BEGIN{y=1900;while(y++<2100){ly=y;by="";while(ly){if(ly%2==0){by="0"by;}else{by="1"by;}ly=int(ly/2);}rby="";for(i=length(by);i>0;i--){rby=rby substr(by,i,1)};if(rby==by){print y}}}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement