g | x | w | all
Bytes Lang Time Link
012Thunno 2230729T163016ZThe Thon
073Lua230430T024049Zbluswimm
184Scala230429T010741Z138 Aspe
056Zsh220902T171239ZGammaFun
035Regex Perl / PCRE2 / Boost / Pythonregex220623T002924ZDeadcode
049PHP220818T162609ZDeadcode
073C160419T102940ZToby Spe
148Swift220818T141247ZLeena
080Brev220818T130157ZSandra
083PHP220818T091810Zaxiac
021K ngn/k220818T080031Zngn
024K ngn/k220816T101644Zdoug
070Knight220815T002756ZAiden Ch
135Regex ECMAScript / Python220625T222136ZDeadcode
099Pure bash220815T193118ZF. Hauri
nan220625T124631ZCzylabso
058C# Visual C# Interactive Compiler220627T020928ZIvan Nee
055JavaScript Node.js220625T163339Zl4m2
012Vyxal220625T062712Zemanresu
056Wolfram Language Mathematica220510T161907ZRomanp
nan220509T114824ZNumber B
045Julia 1.0220509T115025ZMarcMush
069Kotlin160416T162758ZTheNumbe
080AWK201223T083446ZPedro Ma
111R201223T181452ZXi'a
016Stax201223T170644ZRazetime
01205AB1E201223T071146Zlyxal
033Retina160416T100956ZMartin E
01405AB1E160415T193621ZAdnan
084GNU sed160415T193832ZToby Spe
111Visual Basic for Applications160418T151746Zdnep
122TSQL160418T091728Zt-clause
033sh160416T171958ZRainer P
049Retina160416T005206ZLeaky Nu
023Seriously160416T055803Zuser4594
017Pyth160416T054949ZDennis
050Python 2160415T213815Zxnor
015Jelly160415T222146ZDennis
056JavaScript ES6160416T000822ZNeil
022MATL160415T231851ZSuever
046Ruby160415T220601Zm0003r
026Perl160415T204148ZTon Hosp
021Pyth160415T195250ZMaltysen

Thunno 2, 12 bytes

kDḣ»©®£~»Ṇr=

Try it online!

Thunno 2, Vyxal, and 05AB1E all at 12 bytes!

Explanation

kDḣ»©®£~»Ṇr=  # Implicit input
kDḣ           # Push "123456789"
   »©®£~»     # Push "100009086"
         Ṇ    # Transliterate
          r   # Reverse it
           =  # Equals the input?

Lua, 73 bytes

r=''s=...s:gsub('.',load'r=({0,1,0,0,0,0,9,0,8,6})[...+1]..r')print(r==s)

Try it online!

Scala, 184 bytes

Golfed version. Try it online!

def f(n:Int)=n.toString.map{case '1'=>'1';case '2'=>'w';case '3'=>'z';case '4'=>'y';case '5'=>'x';case '6'=>'9';case '7'=>'x';case '8'=>'8';case '9'=>'6';case c=>c}==n.toString.reverse

Ungolfed version. Try it online!

object Main {
  def f(n: Int): Boolean = {
    val original = n.toString
    val transformed = original.map {
      case '1' => '1'
      case '2' => 'w'
      case '3' => 'z'
      case '4' => 'y'
      case '5' => 'x'
      case '6' => '9'
      case '7' => 'x'
      case '8' => '8'
      case '9' => '6'
      case c => c
    }
    original == transformed.reverse.mkString
  }

  def main(args: Array[String]): Unit = {
    for (n <- 1 until 1005 if f(n)) {
      println(s"$n satisfies the condition")
    }
  }
}

Zsh, 65 56 bytes

Thanks to pxeger for saving a whopping 9 bytes!

>${(j..)${(Oas..)1}}<${${${${1//6/.}//<2-7>}//9/6}//./9}

Try it online! Try it online!

Outputs via return code. The > construct creates and opens a file whose name is the reversed number for writing. The program will only exit truthy when the < construct attempts to read from a file with 6/9 swapped, and 2/3/4/5/7 removed.

Regex (Perl / PCRE2 / Boost / Pythonregex), 35 bytes

^(([018])((?1)\2|)|6(?1)9|9(?1)6|)$

Takes its input in decimal.

Try it online! - Perl
Try it online! - PCRE2
Try it online! - Boost
Attempt This Online! - Python import regex

^              # Assert this is the start of the string
(              # Define (?1) recursive subroutine call
    ([018])    # \2 = match a 0, 1, or 8
    ((?1)\2|)  # Optionally match (?1) followed by \2
|              # or
    6(?1)9
|              # or
    9(?1)6
|              # or
    # Match an empty string
)
$              # Assert this is the end of the string

Regex (Ruby), 43 bytes

^(([018])(\g<1>\k<2+0>|)|6\g<1>9|9\g<1>6|)$

Try it online!

This is a direct port of the Perl/PCRE2/Boost version to Ruby's subroutine call syntax and behavior; (?1) has been changed to \g<1>, and \2 to \k<2+0>.

In Perl, PCRE, and Boost, the contents of capture groups are passed to deeper recursion levels, but upon return from a subroutine call, all captures are returned to the state they were in before the subroutine was called, i.e. there is no way to pass captures done within a subroutine call back to its caller. But in Ruby, captures are passed to the caller. So \2 will refer to whatever it captured at the deepest recursion level, and so would \k<2>. It is possible, however, to refer to a capture's value at a specific recursion level; that is why \k<2+0> is used here to refer to its value at the current level.

Regex (.NET), 94 77 66 53 bytes

^((?=([018]|6.*9|9.*6)(?<=(.))).?)+(?<-3>\3)*(?(3)^)$

Try it online!

Implementing this using .NET's Balancing Groups feature turns out to provide an edge over the 57 byte .NET-compatible version that doesn't use any .NET-specific features.

^                 # Assert we're at the beginning of the string
(
    (?=
        # Depending on what the next left-edge digit is, push its corresponding
        # right-edge digit onto the Group 3 stack.
        (
            [018]
        |
            6.*9
        |
            9.*6
        )
        (?<=(.))  # \3 = the right-edge digit (push it onto the Group 3 stack)
    )
    .?
)+
(?<-3>\3)*        # Match all right-edge digits in reverse order as they're
                  # popped from the stack.
(?(3)^)           # Assert that the Group 3 stack is now empty (literally: if
                  # its stack is not empty, assert something impossible, that
                  # we're at the beginning of the string).
$                 # Assert we've reached the end of the string, having matched
                  # all of its characters.

Regex (Perl / PCRE / .NET), 106 62 57 bytes

^((?=([018]|6.*9|9.*6)(?<=(.))).?(?=.*(\3(?(4)\4))))*\4?$

Try it online! - Perl
Try it online! - PCRE1
Try it online! - PCRE2
Try it online! - .NET

In PCRE1, subroutine calls are atomic, which prevents the Perl/PCRE2/Boost version (which requires backtracking to extend into nested subroutine calls) from working. As for .NET (and Java), subroutine calls are not supported.

In this version, instead of using recursion, we read inward from the left and right edges, one pair of characters at a time, remembering the right-edge position using capture group \4. A set of alternatives followed by a lookbehind is used to set the required right-edge digit based on whether the left-edge digit was [018], 6, or 9.

^
(
    # Depending on the next left digit, capture the required right digit in \3
    (?=
        (
            [018]
        |
            6.*9
        |
            9.*6
        )
        (?<=(.))       # Capture the previous character (the right digit) in \3
    )
    .?
    (?=
        .*
        (              # Capture \4 as the following:
            \3
            # Match \4 iff it has been captured (i.e., iff this is not the
            # first iteration). As such, \4 will be prepended with the current
            # right digit.
            (?(4)\4)
        )
    )
)*
\4?
$

Regex (Perl / PCRE / Java / .NET), 113 76 69 64 bytes

^((?=([018]|6.*9|9.*6)(?<=(.))).?(?=.*(\3(\6\4|(?!\6))())))*\4?$

Try it online! - Perl
Try it online! - PCRE1
Try it online! - PCRE2
Try it online! - Java
Try it online! - .NET

This is a port of the Perl/PCRE/.NET version, removing the use of the conditional due to their lack in Java, and emulating it with an empty capture whose set/unset status can be detected. Only the modified portion is shown below:

            # Match \4 iff it has been captured (i.e., iff this is not the
            # first iteration). As such, \4 will be prepended with the current
            # right digit.
            (
                \6\4
            |
                (?!\6)
            )
            ()         # \6 = set and empty, to signal \4 is captured

PHP, 49 bytes (anonymous function)

fn($s)=>$s==strrev(strtr($s,"6923457","9600000"))

Try it online!

The strtr translates 6 to 9, 9 to 6, and all non-symmetric digits to 0 (any character other than themselves would work). The digits 0, 1, and 8 are left unchanged. (The order I put them in is purely a stylistic choice; I don't think it even makes a difference in speed.)

Then strrev reverses this result, which is then compared with the original string; if they're equal, it has rotational symmetry.

PHP -F, 51 bytes (full program)

<?=$argn==strrev(strtr($argn,"6923457","9600000"));

Try it online!

C, 73 82 bytes

f(x){int y=0,z=x;for(;x;x/=10)y=y*10+"0100009086"[x%10]-'0';return z==y;}

Expanded

static const char s[] = "0100009086";
int f(int x)
{
    int y=0, z=x;
    for(; x; x/=10)
        y = y*10 + s[x%10]-'0';
    return z==y;
}

Explanation

We reverse the digits of x using modulo-10 arithmetic, replacing 6 and 9 by their reflections as we go. We replace the rotationally-asymmetric digits by zeros (note that we can handle symmetric fives and/or twos by simply changing the replacement table s). If the new number is equal to the original (saved in 'z'), then it is rotationally symmetric.

Test program

#include <stdio.h>
int main()
{
    int i;
    for(i=0;  i <= 16091; ++i)
        if (f(i))
            printf("%d\n", i);
}

This prints the list of symmetric numbers given in the question.

Swift, 148 bytes

var a=[0,1,6,8,9],b=[0,1,9,8,6],c=readLine()!.map {Int(String($0))!},f = false,t = c.count;for i in 0..<t{f = c[t-i-1] == b[a.index(of: c[i]) ?? 0]}

Brev, 80 bytes

(define(r n)(= n((as-list reverse(over(vector-ref #(0 1 3 4 5 6 9 8 8 6)x)))n)))

Non-minified:

(define (rotsym? n)
  (= n ((as-list reverse (over (vector-ref #(0 1 3 4 5 6 9 8 8 6) x))) n)))

PHP, 83 bytes

<?=$argn==strrev(str_replace([6,9,x],[x,6,9],preg_replace("/[^01689]/","",$argn)));

Save the code in a file (let's say symmetry.php) and run it as:

php -d error_reporting=0 -F symmetry.php

Run it online on TIO.

The algorithm is simple: remove the non-symmetric characters, replace 6 with 9 and 9 with 6 then reverse the result. If it equals the input string then it is a rotationally symmetrical number.

K (ngn/k), 21 bytes

{y~|x[>x]x?y}/$68910,

Try it online!

68910, prepend 68910 to the argument

$ format both as strings

{ }/ apply a function to x="68910" and y= the original argument as string

x?y find the positions of the elements of y among x. use "null" (0N) for "nout found".

x[>x] down-sorted x, i.e. "98610"

x[>x]x?y index x[<x] with x?y. out-of-bounds indexing produces spaces

| reverse

y~ test if y matches that

K (ngn/k), 25 24 bytes

{d~|"01986""01689"?d:$x}

Try it online!

-1 byte thanks to @ngn

My first version was 74 bytes but then I read @xnor's solution and decided to translate that.

Knight, 70 bytes

;=p=sP;=a'';Ws;=a+I|?54=bAs?57bA-111bI||?48b?49b?56bAb''a=sSsF1''O?a p

Working with strings is a pain in Knight

Try It Online!

Test Suite

Regex (ECMAScript / Python), 366 323 254 201 180 148 135 bytes

^(x$|x{8}$|(?=.*?(?=(((x*)\4{8}(?=\4$))+x$))(x*)\5{99})(?=(\2x)(|\6{5}(\6\6|\2{3}|xxx))(?!\2)(x*)\9{9}$)(?=(x*(?=\5|$))(|\5x)\9$)\10)*$

Takes its input in unary, as the length of a string of xs.

Try it online! - ECMAScript
Try it online! - Python
Try it on replit.com! - RegexMathEngine (much faster), in ECMAScript mode

It's impossible for a ECMAScript regex to match the sequence in decimal, but as demonstrated here, it's possible in unary.

The regex works by looping the following logic:

  1. Carve away both the leading and trailing digit if they are an allowed pair, or (for single-digit values) an allowed single digit.
  2. Prevent the value sent to the next iteration from having any leading zeroes, since the regex operates on numbers, not strings, so any leading zeroes would be stripped. If it has a leading zero, add \$1\$ to both the leading and trailing digit. If both were zero, both will be changed to \$1\$, preserving the trait of symmetry. If the trailing digit was nonzero (meaning the input is not a rotationally symmetric number), adding one of \$11, 101, 1001, ...\$ is guaranteed not to change it to one that is symmetric, because for example \$1001\$ could only be added to any number in the range \$0001\$ to \$0999\$ with a nonzero last digit, which can only yield a number in the range \$1002\$ to \$2000\$ with a last digit other than \$1\$, none of which are rotationally symmetric. This allows us to golf off 13 bytes, due to not needing the trailing zero check (?=(x{10})*$).

The 135 byte version has been tested from 0 to 1000000 using RegexMathEngine without finding any false positives or negatives. The test took 29.342 hours (single-threaded) on my i7-4930K @ 4.1 GHz.

(This was originally part of this answer and was split due to being very different in nature. See that post's edit history for changes made prior to the 254 byte length.)

^                        # tail = input number
(
    x$                   # If tail==1, let tail=0 and end the loop
|
    x{8}$                # If tail==8, let tail=0 and end the loop
|
    # Assert tail >= 10; find \2 = the largest power of 10 that is <= tail
    (?=
        .*?              # Decrease tail by the minimum necessary to satisfy
                         # the following assertion:
        (?=
            # Assert tail is a power of 10 >= 10; \2 = tail
            (((x*)\4{8}(?=\4$))+x$)
        )
        (x*)\5{99}       # \5 = floor(tail / 100)
    )

    # Require tail is of the form 1.*1, 8.*8, 6.*9, or 9.*6
    (?=
        (\2x)            # \6 = \2 + 1
        (
                         # 1.*1
        |
            \6{5}
            (
                \6\6     # 8.*8
            |
                \2{3}    # 9.*6
            |
                xxx      # 6.*9
            )
        )
        (?!\2)
        (x*)\9{9}$       # Assert tail is divisible by 10;
                         # \9 = tail / 10 == floor((N % \2) / 10)
    )

    # Set tail = \9, but if \9 is of the form 0.*0, the next iteration would
    # not be able to see its leading zero, so change it to the form 1.*1 in
    # that case, otherwise leave it unchanged. If \9 is of the form 0.*[1-9],
    # don't go to the next iteration.
    (?=
        (                # \10 = tool to make tail = \9 or \9 + \5 + 1
            x*
            # Assert that the leading digit of tail is not 0, unless tail==0
            (?=
                \5       # Assert that the leading digit of tail is not 0
            |            # or
                $        # Assert that tail==0
            )
        )
        # Iff necessary to satisfy the above, tail += \5 + 1
        (
        |
            \5x
        )
        \9$              # tail = \9
    )
    \10                  # tail = \9 or \9 + \5 + 1
)*                       # Execute the above loop as many times as possible,
                         # with a minimum of zero iterations.
$                        # Assert tail==0

Pure bash, 99 bytes

Using shopt -s extglob:

o=;for i in ${1//*()/ };do o=${i//6/_}$o;done; o=${o//9/6} o=${o//_/9}
[[ ${o//[23457]} == "$1" ]]

There are 98 bytes +1 for extglob -> 99 bytes.

Without extglob, 101 bytes

o=;for((i=${#1};i--;)){ o+=${1:i:1};};o=${o//6/_} o=${o//9/6} o=${o//_/9}
[[ $1 == "${o//[23457]}" ]]

Sample:

rotatable() {
    o=;for i in ${1//*()/ };do o=${i//6/_}$o;done; o=${o//9/6} o=${o//_/9}
    [[ ${o//[23457]} == "$1" ]]
}
for((x=0;x<10000;x++)){ rotatable $x&&echo $x;}|column 
0       69      111     689     906     1111    6009    6969    8888    9696
1       88      181     808     916     1691    6119    8008    8968    9886
8       96      609     818     986     1881    6699    8118    9006    9966
11      101     619     888     1001    1961    6889    8698    9116

Julia

47 bytes

The first attack.

!x=10(d=digits(x))+reverse(d)⊆[0,11,88,69,96]

Attempt This Online!

39 bytes

Using @b_str it can be golfed further as proposed by @MarcMush and @Deadcode:

Attempt It Online!

C# (Visual C# Interactive Compiler), 58 bytes

n=>$"{n}".Aggregate("",(z,c)=>"01----9-86"[c-48]+z)==n+"";

Try it online!

JavaScript (Node.js), 55 bytes

n=>!(e=[...''+n]).some(c=>'0x'+'01aaaa9a86'[c]-e.pop())

Try it online!

Half test of n=>![...''+n].some((c,i,e)=>'0100009086'[c]-e.slice(~i)[0])

Vyxal, 12 bytes

»\Π»F∑69S*Ṙ=

Try it Online!

    F∑       # Remove elements of...
»\Π»         # 23457
         *   # Ring translate by...
      69S    # "69"
          Ṙ= # Does it, reversed, equal the input?

Wolfram Language (Mathematica), 56 bytes

#~ContainsNone~{2,3,4,5,7}&&Reverse@#==(#/.{6->9,9->6})&

Try it online!

Takes input as a list of digits.

Explanation:


#~ContainsNone~{2,3,4,5,7} Check if the input contains no unflippable digits

&&Reverse@# and that the reverse of the input

==(# is equal to the input

/.{6->9,9->6})& where all 6s are replaced with 9s and 9s with 6s.

Nobody had posted a Python 3 solution so I'll go with my rubbish one

Python 3, 190 95 bytes

lambda x:not str(x).replace('0','').replace('1','').replace('6','').replace('8','').replace('9','').replace('0','')and str(x)[::-1].replace('6','z').replace('9','6').replace('z','9')==str(x)

EDIT:

lambda x:(x:=str(x))==[x:=x[::-1].replace(*p)for p in['6z','96','z9']][2]and not{*x}-{*'01689'}

Julia 1.0, 45 bytes

!x=prod(d->"01....9.86"[1+d],digits(x))=="$x"

Try it online!

Kotlin, 69 bytes

This takes the number, converts it to a string, rotates it, and then compares it with the original as a string for equality. Non-rotatable digits are simply converted to 0

{i->"$i".map{"0100009086"[it-'0']}.joinToString("").reversed()=="$i"}

Test it Here!

AWK, 85 84 82 80 bytes

{n=split($1,a,s="");for(;n;){b=a[n--];s=s (b~/[2-57]/?9:b~6?9:b~9?6:b)}$1=s~$1}1

This feels like brute-forcing, but awk has very limited tools, mostly aimed to text processing. This code allows multiple inputs.

{
n=split($1,a,s="");    # this splits $1 (the input) into the array _a_
                       # using an empty string as token. each element of the
                       # array is a digit of the input number.
                       # also, sets the number of elements to _n_,
                       # and sets the empty string to _s_.
    
for(;
    n;          # loops until n==0 (evaluates to false)
   ){
      b=a[n--]; # sets the _n_ element of the array to _b_. this will save bytes later
                # immediately after, decrements _n_ by 1 (one less byte here)

                        # here the magic happens:
      s=s (             # this appends a chaining conditional to the variable _s_
          b~/[2-57]/?9: # if _b_ equals 2, 3, 4, 5 or 7, returns 9 (dummy number)
          b~6?9:        # otherwise, if _b_ equals 6, returns 9
          b~9?6:        # otherwise, if _b_ equals 9, returns 6
          b             # otherwise, returns its value
          )
    }
$1=s~$1      # evaluates if _s_ matches $1, and sets this boolean to $1
}
1            # prints $1.

Try it online!


AWK, 78 bytes

This is almost the same as above, but without the s variable. Two less bytes, with the effect of allowing only one input.

{n=split($1,a,"");for(;n;){b=a[n--];s=s (b~/[2-57]/?9:b~6?9:b~9?6:b)}$1=s~$1}1

Try it online!

R, 111 bytes

With integer input and 0 output corresponding to truthy

f=sum
p=1:nchar(a<-scan())
b=a%%(l<-10^p)%/%(l/10)
d=(b-rev(b))^2
f(b>2&b<8&b!=6)+f(d[b<2|b==8])+f(d[!b%%3]!=9) 

Try it online!

Stax, 16 bytes

ê±°";╙ñ♀C¼EE^☼ùΣ

Run and debug it

05AB1E, 12 bytes

žhÀ•yΘOñ•‡RQ

Try it online!

I somehow managed to beat Adnan's 05AB1E answer lol. This

Explained

žhÀ             # Push "1234567890"
   •yΘOñ•       # Push "1000090860"
         ‡      # Transliterate the input based upon the previous two strings
          RQ    # Check if the reverse of that equals the input

Retina, 40 38 33 bytes

$
;$_
T`92-7`69`;.+
+`(.);\1
;
^;

Try it online!

Explanation

This uses a completely different approach from the other Retina answer. Instead of removing all symmetric parts, we simply perform the transformation of reversing the string and swapping 6 and 9s and then compare for equality. To make sure that no non-symmetric digits appear we also turn them into 9s in one half.

$
;$_

We duplicate the input by matching the end of the string and inserting ; followed by the entire input.

T`92-7`69`;.+

This performs a character transliteration only on the second half by matching it with ;.+. The two transliteration sets expand to:

9234567
6999999

Because 2-7 denotes a range and the target set is padded with the last character to match the length of the source set. Hence, the stage swaps 6 and 9 and also turns all of 23457 into 9s.

+`(.);\1
;

Repeatedly (+) remove a pair of identical characters around the ;. This will either continue until only the ; is left or until the two characters around the ; are no longer identical, which would mean that the strings aren't the reverse of each other.

^;

Check whether the first character is ; and print 0 or 1 accordingly.

05AB1E, 22 16 15 14 bytes

Code:

Â23457ð«-69‡Q

Try it online!


Previous code:

Â69‡Q¹¹„vd•ÃQ*

To figure out if the string is rotational symmetric, we just need to transliterate 69 with 96, reverse the string and check if they are equal. The other thing we need to know is if the number only contains the digits 0, 1, 8, 6 and 9. So that's exactly what we are going to do:

                     # Bifurcate the input, which pushes input and input[::-1]
 69Â                  # Bifurcate 69, which pushes 69 and 96.
    ‡                 # Transliterate 69 with 96 in the input, e.g. 1299 becomes 1266.
     Q                # Check for equality.
      ¹¹              # Push input again twice.
        „vd•          # Compressed version for 10869.

The „vd• part actually converts the string vd from base 190 to base 10. You can try this out here.

            Ã        # Keep the characters of the second string in the first string.
                       667788 would become 6688 (since 7 is not in 10869).
             Q       # Check for equality.
              *      # Multiply the top two numbers, which actually does an AND function.

Uses CP-1252 encoding. Try it online!

GNU sed, 84 bytes

(including +1 for -r flag)

:
s/^6(.*)9$/\1/
s/^9(.*)6$/\1/
s/^([081])(.*)\1$/\2/
t
s/^[081]$//
s/.+/0/
s/^$/1/

If the line ends with a rotation of its beginning character, trim both ends by one. Repeat until there's no match. Account for a single symmetric character, then if anything remains, the input was not symmetric, and we return false; otherwise return true.

Visual Basic for Applications, 150 111 bytes

Usable in console or as an UDF.

Function c(b)
c=(Not b Like"*[!01869]*")And b=Replace(Replace(Replace(StrReverse(b),9,7),6,9),7,6)
End Function

Improved by taking advantage of implicit type conversions and by doing three steps swapping instead of two steps on each side of the equation. Count includes Function and End Function statements.

TSQL, 122 bytes

I am new to code golf, so not quite sure how to count the characters. Counting it as 1 here since the number used in this case is 8

This will return 1 when the reversed value match and nothing when it doesn't match:

SELECT 1FROM(values(8))x(x)WHERE(x)NOT like'%[23457]%'and REPLACE(REPLACE(x,6,4),9,6)=REVERSE(REPLACE(REPLACE(x,9,4),9,6))

Human readable:

SELECT 1
FROM
  (values(808))x(x)
WHERE(x)
  NOT like'%[23457]%'
  and REPLACE(REPLACE(x,6,4),9,6)=REVERSE(REPLACE(REPLACE(x,9,4),9,6))

sh, 40 33 bytes

[ `rev<<<$1|tr 6923457 96` = $1 ]

Input via command line argument, output via exit code. Generate all testcases:

for i in `seq 0 10000`
do
  if [ `rev<<<$i|tr 6923457 96` = $i ]
  then
    echo $i
  fi
done

Retina, 57 49 bytes

8 bytes saved thanks to @Martin Büttner.

+`^(([018])(.*)\2|9(.*)6|6(.*)9)$
$3$4$5
^[018]?$

Try it online!

Seriously, 23 bytes

,$;`"01xxxx9x86"í`MRεj=

Try it online!

This is essentially a port of xnor's Python 2 solution.

Explanation:

,$;`"01xxxx9x86"í`MRεj=
,$;                      push two copies of str(input)
   `"01xxxx9x86"í`M      map: get each digit's rotated digit (or x if not rotatable)
                   Rεj   reverse and join on empty string to make a string
                      =  compare equality with original input

Pyth, 17 bytes

!-FmC_B`d,QC\􄽥

Test it in the Pyth Compiler.

How it works

!-FmC_B`d,QC\􄽥  (implicit) Store the input in Q.

            \􄽥  Yield the Unicode character with code point 1068901.
           C    Compute its code point.
         ,Q     Pair the input and 1068901.
   m            Map; for each d in [Q, 1068901]:
       `d         Yield the string representation of d.
     _B           Yield the pair of `d` and `d` reversed.
    C             Zip. For the second string, this gives
                  ['11', '00', '69', '88', '96', '00', '11'].
 -F             Fold by difference, i.e., removes all pairs in the second list
                from the first list.
!               Logically negate the result, returning True iff the list is empty.

Python 2, 50 bytes

lambda n:`n`==`map('01xxxx9x86'.find,`n`)`[-2::-3]

The method '01xxxx9x86'.find takes a digit character to it's upside-down number, with any unflippable digit giving -1. This function is mapped to the reversed number string, producing a list of digits.

This is converted to a string with the [1::3] trick, except it's reversed instead by doing [-2::-3] (thanks to Dennis for this, saving 4 bytes), and compared to the original number string. Any -1's from unflippable digits will misalign the conversion, making it fail.


56 bytes:

lambda n:`n`[::-1]==`n`.translate('01xxxx9x86______'*16)

Checks if the number string reversed is the same as it with the upside-down replacements. Digits that can't be flipped are replaced with 'x' to always give the wrong answer.

The replacement is done with translate on a string of 256 chars, replacing the corresponding ASCII values. Only the 10 values 48 to 57 matter, but I padded to length 16 to make the total length be 256. I wonder if there's a shorter way.

Some other approaches (lengths 59, 60, 60):

lambda n:set(zip(`n`,`n`[::-1]))<=set(zip('01896','01869'))
r=lambda s:set(zip(s,s[::-1]));lambda n:r(`n`)<=r('9018106')
lambda n:all(a+b in'001188969'for a,b in zip(`n`,`n`[::-1]))

Jelly, 16 15 bytes

,ȷ9+90860¤Dị/⁼Ṛ

Try it online!

How it works

,ȷ9+90860¤Dị/⁼Ṛ  Main link. Argument: n (integer)

         ¤       Evaluate the three links to the left as a niladic chain:
 ȷ9              Yield 1000000000.
    90860        Yield 90860.
   +             Add to yield 1000090860.
,                Pair; yield [n, 1000090860].
          D      Convert both integers to base 10.
           ị/    Reduce by index, i.e., for each digit of n, retrieve the element
                 of [1, 0, 0, 0, 0, 9, 0, 8, 6, 0] at that index (1-based).
              Ṛ  Yield the digits of n in reversed order.
             ⁼   Test for equality.

JavaScript (ES6), 56 bytes

n=>n==[...''+n].reverse().map(c=>'0100009086'[c]).join``

MATL, 25 21 22 bytes

j69801VmAGtP69VtPXE=vA

Try it Online!

Explanation

j       % Explicitly grab input as string
69801   % Number literal
V       % Convert to a string
mA      % Check if all input chars are members of this list
G       % Explicitly grab the input
tP      % Duplicate and flip it
69      % Number literal
V       % Convert to string ('69')
tP      % Duplicate and flip it ('96')
XE      % Replace all '6' with '9', and '9' with '6'
=       % Check that this substituted string is equal to the original
v       % Vertically concatenate all items on the stack
A       % Ensure everything is true
        % Implicitly print boolean result

Ruby, 54 46 bytes

 ->a{(b=a.to_s).tr('1-9','1w-z9x86').reverse==b}

I don't know, is anonymous functions like that allowed or not

Basically same idea as Python2 answer. If input is not integer, act bad (i.e. aba gives true)

Perl, 29 26 bytes

Includes +1 for -p

Run with the input on STDIN:

rotation.pl <<< 69

rotation.pl:

#!/usr/bin/perl -p
$_=reverse==y/962-7/69a/r

Pyth - 21 bytes

&!-z+`180K`69qzX_z_KK

Test Suite.