Eine palindromische Zahl (falls Sie sie nicht kennen) ist eine Zahl, die vor und zurück gleich lautet (Beispiel 11). Der erste 15 nicht-Zahlenpalindrom ist: 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26. Dies ist A029742 . Ich brauche diese Nummern ständig, aber mein Notizblock ist sehr klein, sodass Ihr Code so kurz wie möglich sein muss.

Regeln

• Jede Einreichung muss ein vollständiges Programm oder eine vollständige Funktion sein (z. B. können Sie in C nicht nur eine Funktion ohne Überschriften definieren, sondern Sie können eine Funktion mit den erforderlichen Überschriften definieren).
• Wenn es möglich ist, geben Sie einen Link zu einer Site an, auf der Ihr Programm getestet werden kann.
• Ihr Programm darf nichts schreiben STDERR.
• Sie können Eingaben als Argument oder von STDIN(oder der nächstgelegenen Alternative in Ihrer Sprache) nehmen.
• Programme werden nach Bytes bewertet . Der übliche Zeichensatz ist UTF-8. Wenn Sie einen anderen Zeichensatz verwenden, geben Sie diesen bitte an.
• Standardlücken sind verboten.

Testfälle

1
==> 10

-----

5
==> 15

-----

12
==> 23

Wertung

Das ist Code-Golf , also gewinnt das Minimum an Bytes.

Einreichungen

Um sicherzustellen, dass Ihre Antwort angezeigt wird, beginnen Sie Ihre Antwort mit einer Überschrift. Verwenden Sie dazu die folgende Markdown-Vorlage:

# Language Name, N bytes

Wo Nist die Größe Ihres Beitrags? Wenn Sie Ihren Score zu verbessern, Sie können alte Rechnungen in der Überschrift halten, indem man sich durch das Anschlagen. Zum Beispiel:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Wenn Sie mehrere Zahlen in Ihre Kopfzeile aufnehmen möchten (z. B. weil Ihre Punktzahl die Summe von zwei Dateien ist oder wenn Sie die Strafen für Interpreter-Flags separat auflisten möchten), stellen Sie sicher, dass die tatsächliche Punktzahl die letzte Zahl in der Kopfzeile ist:

# Perl, 43 + 2 (-p flag) = 45 bytes

Sie können den Namen der Sprache auch als Link festlegen, der dann im Leaderboard-Snippet angezeigt wird:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

Bestenliste

Hier ist ein Stack-Snippet, um sowohl eine reguläre Rangliste als auch eine Übersicht der Gewinner nach Sprache zu generieren.

/* Configuration */

var QUESTION_ID = 79251; // Obtain this from the url
// It will be like https://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 53406; // This should be the user ID of the challenge author.

/* App */

var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;

function answersUrl(index) {
  return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
  return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      answers_hash = [];
      answer_ids = [];
      data.items.forEach(function(a) {
        a.comments = [];
        var id = +a.share_link.match(/\d+/);
        answer_ids.push(id);
        answers_hash[id] = a;
      });
      if (!data.has_more) more_answers = false;
      comment_page = 1;
      getComments();
    }
  });
}

function getComments() {
  jQuery.ajax({
    url: commentUrl(comment_page++, answer_ids),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      data.items.forEach(function(c) {
        if (c.owner.user_id === OVERRIDE_USER)
          answers_hash[c.post_id].comments.push(c);
      });
      if (data.has_more) getComments();
      else if (more_answers) getAnswers();
      else process();
    }
  });  
}

getAnswers();

var SCORE_REG = /<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
  return a.owner.display_name;
}

function process() {
  var valid = [];
  
  answers.forEach(function(a) {
    var body = a.body;
    a.comments.forEach(function(c) {
      if(OVERRIDE_REG.test(c.body))
        body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
    });
    
    var match = body.match(SCORE_REG);
    if (match)
      valid.push({
        user: getAuthorName(a),
        size: +match[2],
        language: match[1],
        link: a.share_link,
      });
    
  });
  
  valid.sort(function (a, b) {
    var aB = a.size,
        bB = b.size;
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  valid.forEach(function (a) {
    if (a.size != lastSize)
      lastPlace = place;
    lastSize = a.size;
    ++place;
    
    var answer = jQuery("#answer-template").html();
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", a.user)
                   .replace("{{LANGUAGE}}", a.language)
                   .replace("{{SIZE}}", a.size)
                   .replace("{{LINK}}", a.link);
    answer = jQuery(answer);
    jQuery("#answers").append(answer);

    var lang = a.language;
    if (/<a/.test(lang)) lang = jQuery(lang).text();
    
    languages[lang] = languages[lang] || {lang: a.language, user: a.user, size: a.size, link: a.link};
  });

  var langs = [];
  for (var lang in languages)
    if (languages.hasOwnProperty(lang))
      langs.push(languages[lang]);

  langs.sort(function (a, b) {
    if (a.lang > b.lang) return 1;
    if (a.lang < b.lang) return -1;
    return 0;
  });

  for (var i = 0; i < langs.length; ++i)
  {
    var language = jQuery("#language-template").html();
    var lang = langs[i];
    language = language.replace("{{LANGUAGE}}", lang.lang)
                       .replace("{{NAME}}", lang.user)
                       .replace("{{SIZE}}", lang.size)
                       .replace("{{LINK}}", lang.link);
    language = jQuery(language);
    jQuery("#languages").append(language);
  }

}

body { text-align: left !important}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

table td {
  padding: 5px;
}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b">
<div id="answer-list">
  <h2>Leaderboard</h2>
  <table class="answer-list">
    <thead>
      <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr>
    </thead>
    <tbody id="answers">

    </tbody>
  </table>
</div>
<div id="language-list">
  <h2>Winners by Language</h2>
  <table class="language-list">
    <thead>
      <tr><td>Language</td><td>User</td><td>Score</td></tr>
    </thead>
    <tbody id="languages">

    </tbody>
  </table>
</div>
<table style="display: none">
  <tbody id="answer-template">
    <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>
<table style="display: none">
  <tbody id="language-template">
    <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>

Pyth, 7 Bytes

e.f!_I`

Testsuite

Erläuterung:

e.f!_I`
e.f!_I`ZQ    Implicit variable introduction.
 .f     Q    Find the first Q numbers whether the following is truthy,
             starting at 1, where Q is the input.
      `Z     Convert the number to a string.
     _I      Check if it's the same when reversed.
    !        Logical not.
 e           Return the last element of the list.

Haskell, 38 Bytes

([x|x<-[1..],(/=)<*>reverse$show x]!!)

Verwendet einen 0-basierten Index. ([x|x<-[1..],(/=)<*>reverse$show x]!!) 11-> 23.

Der Test, ob eine Zahl aufbewahrt werden (/=)<*>reverse$show xsoll (show x) /= (reverse (show x)), führt zu dem Ergebnis, dass überprüft wird, ob die Zeichenfolgendarstellung der Zahl nicht der Umkehrung der Zeichenfolgendarstellung entspricht.

Brachylog , 14 11 Bytes

;0{<≜.↔¬}ⁱ⁽

-3 Bytes Panzer zu töten

Erläuterung

; {      }ⁱ⁽        --  Find the nth number
 0                  --      (starting with 0)
   <                --      which is bigger then the previous one
    ≜               --      make explicit (otherwise it fucks up)
      .             --      which is the output
       ↔            --      and if reversed
        ¬           --      is not the output

Probieren Sie es online!

Gelee, 9 Bytes

1 Byte dank @ Sp3000 .

ṚḌ_
0dz#Ṫ

Probieren Sie es online!

Testsuite.

Erläuterung

DUḌ_   Helper link. Check if x is not palindrome.

D      Convert to decimal.
 U     Reverse.
  Ḍ    Convert back to integer.
   _   Subtract x from the result above.
       For 23, this will yield 32-23 = 9.
       Only yield 0 (falsy) if x is palindrome.
       If x is not a palindrome,
       it will return a truthy number.


0dz#Ṫ  Main link.

0      Start from 0.
   #   Find the first         numbers:
  ³                   <input>
 Ç         where the above link returns a truthy number.
    Ṫ  Yield the last of the matches.

05AB1E , 8 Bytes

Code:

µNÂÂQ>i¼

Verwendet die CP-1252- Codierung. Probieren Sie es online! .

Clojure, 62 Bytes

#(nth(for[i(range):when(not=(seq(str i))(reverse(str i)))]i)%)

0-indiziert. Generieren Sie mit Hilfe des Listenverständnisses ieinen trägen unendlichen Bereich von nicht-palindromen Zahlen und nehmen Sie diese . Sehen Sie es online: https://ideone.com/54wXI3

PowerShell v2 +, 65 Byte

for(;$j-lt$args[0]){if(++$i-ne-join"$i"["$i".length..0]){$j++}}$i

Durchläuft die Zahlen von 0(impliziter Wert für nicht initialisiert $i) bis zur Eingabe $args[0]vieler Übereinstimmungen und gibt dann die letzte aus. Beachten Sie, dass wir die Schleife nicht initialisieren, also $j=0implizit.

Jede Iteration wird vorab inkrementiert $iund geprüft, ob sie nicht $iumgekehrt ist. Wenn ja, bedeutet dies, dass wir ein Nicht-Palindrom gefunden haben $j. Die Schleife wird dann so oft wie nötig fortgesetzt.

Beispiele

PS C:\Tools\Scripts\golfing> .\print-nth-palindromic-number.ps1 100
120

PS C:\Tools\Scripts\golfing> .\print-nth-palindromic-number.ps1 5
15

PS C:\Tools\Scripts\golfing> .\print-nth-palindromic-number.ps1 55
70

PS C:\Tools\Scripts\golfing> .\print-nth-palindromic-number.ps1 212
245

Python 2, 60 Bytes

f=lambda n,i=0,j=1:j>n and i-1or f(n,i+1,j+(`i`!=`i`[::-1]))

Eine Funktion mit einem Index, die die Eingabe eines nvia-Arguments annimmt und die nnicht-palindromische Zahl zurückgibt .

Wie es funktioniert

Dies ist eine umfassende rekursive Suche, bei der ganze Zahlen iim Bereich nacheinander getestet werden, [1,∞)bis nnicht-palindrome Zahlen gefunden wurden. da ivorinkrementiert wird, i-1wird dann zurückgegeben. Das Testen, ob eine Zahl palindrom ist, wird durchgeführt, indem in eine Zeichenfolge konvertiert wird, umgekehrt wird und dann überprüft wird, ob die ursprüngliche und die umgekehrte Zeichenfolge gleich sind.

Der Code ist logisch äquivalent zu:

def f(n,test=0,count=1):
    if count>n:
        return test
    elif str(test)!=reversed(str(test)):
        return f(n,test+1,count+1)
    else:
        return f(n,test+1,count)

was selbst ist im Wesentlichen:

def f(n):
    test=0
    count=1
    while count<=n:
        if str(test)!=reversed(str(test)):
            count+=1
        test+=1
    return test-1

Probieren Sie es auf Ideone

Clojure, 62 Bytes

#(nth(filter(fn[i](not=(seq i)(reverse i)))(map str(range)))%)

Ein ganz anderer Ansatz als die andere Antwort, aber gleich lang.

R , 133 117 93 76 Byte

-16 Bytes dank JayCe. -41 Bytes dank Giuseppe.

x=scan();while({F=F+any((D=T%/%10^(1:nchar(T)-1)%%10)!=rev(D));F<=x})T=T+1;T

Probieren Sie es online!

Viertens (gviertens) , 103 bis 99 Bytes

: f 9 swap 0 do begin 1+ dup 0 over begin 10 /mod >r swap 10 * + r> ?dup 0= until = 0= until loop ;

Probieren Sie es online!

Erläuterung

Bei jeder Iteration wird n-mal die nächste nicht-palindromische Zahl gefunden, indem ein Zähler um 1 erhöht wird, bis die Zahl nicht mehr umgekehrt ist

Ungolfed Code

Normalerweise würde ich den Code nicht "ungolfen", aber da dieser Code etwas chaotisch ist, dachte ich, dass es helfen würde

: reverse ( s -- s )
    0 swap 
    begin 
        10 /mod
        >r swap
        10 * +
        r> ?dup 0=
    until 
; 

: f ( s -- s )
    9 swap 0
    0
    do
        begin
            1+ dup dup
            reverse =
        0= until
    loop
;

Code-Erklärung

: f                \ start a new word definition
  9                \ start at 9, since all positive ints < 10 are palindromic
  swap 0           \ set up loop parameters from 0 to n-1
  do               \ start a counted loop       
    begin          \ start an indefinite loop
      1+ dup       \ increment counter and place a copy on the stack
      ( Reverse )
      0 over       \ add 0 to the stack (as a buffer) and copy the top counter above it
      begin        \ start another indefinite loop
        10 /mod    \ get the quotient and remainder of dividing the number by 10
        >r         \ store the quotient on the return stack
        swap 10 *  \ multiply the current buffer by 10
        +          \ add the remainder to the buffer
        r>         \ grab the quotient from the return stack
        ?dup       \ duplicate if not equal to 0
        0=         \ check if equal to 0
      until        \ end inner indefinite loop if quotient is 0
      ( End Reverse )
      = 0=         \ check if counter =/= reverse-counter            
    until          \ end the outer indefinite loop if counter =/= reverse-counter
  loop             \ end the counted loop
;                  \ end the word definition 

Perl 6 , 29 Bytes

{grep({$_!= .flip},^Inf)[$_]}

(verwendet 0-basierten Index)

{         # The $_ is implied above
  grep(   # V
    { $_ != $_.flip }, # only the non-palindromic elements of
    ^Inf               # an Infinite list ( 0,1,2,3 ...^ Inf )
  )[ $_ ]              # grab the value at the given index
}

Verwendung:

my &non-palindrome = {grep({$_!= .flip},^Inf)[$_]}

say non-palindrome 1  - 1; # 10
say non-palindrome 5  - 1; # 15
say non-palindrome 12 - 1; # 23

# this also works:
say non-palindrome 0..20;
# (10 12 13 14 15 16 17 18 19 20 21 23 24 25 26 27 28 29 30 31 32)

Eigentlich 17 Bytes

;τR9+;`$;R=Y`M@░E

Probieren Sie es online!

Die Werte sind 1-indiziert. Dies könnte leicht geändert werden 0-indiziert durch die erste ersetzt Rmit r. Aber Rgenau das habe ich anfangs geschrieben, also gehe ich damit um.

Die nichtpalindromischen Zahlen genügen a(n) ≈ n + 10also 2n+9einer ausreichenden Obergrenze.

Erläuterung:

;τR9+;`$;R=Y`M@░E
;τ9+R;             push n, range(1,(2*n)+10)
      `$;R=Y`M@░   take values that are not palindromic
                E  take nth element

JavaScript (ES6), 54 Byte

Verwendet 1-basierte Indizierung. Funktioniert nur bis zur 7624. Nummer.

d=(i,a=0)=>i?d(i-=++a!=[...''+a].reverse().join``,a):a

Verwendung

d=(i,a=0)=>i?d(i-=++a!=[...''+a].reverse().join``,a):a
d(1)
10
d(123)
146
d(7624)
7800
d(7625)
// Uncaught RangeError: Maximum call stack size exceeded

JavaScript (ES6), 59 Byte

Verwendet keine Rekursion und kann daher viel größere Eingaben verarbeiten.

i=>eval("for(a=9;i-=++a!=[...`${a}`].reverse().join``;);a")

Verwendung

(i=>eval("for(a=9;i-=++a!=[...`${a}`].reverse().join``;);a"))(1)
10
(i=>eval("for(a=9;i-=++a!=[...`${a}`].reverse().join``;);a"))(7625)
7801
(i=>eval("for(a=9;i-=++a!=[...`${a}`].reverse().join``;);a"))(123456)
124579

Javascript (mit externer Bibliothek) (97 Bytes)

n=>_.Sequence(n,i=>{i=_.From(i+"");if(!i.Reverse().SequenceEqual(i)){return i.Write("")}}).Last()

Link zu lib: https://github.com/mvegh1/Enumerable

Codeerklärung: Die Bibliothek verfügt über eine statische Methode namens Sequence, wobei der erste Parameter definiert, wie viele Elemente die Sequenz garantiert erstellt, und der zweite Parameter ein Prädikat ist, das den aktuellen Iterationswert "i" akzeptiert. Das Prädikat konvertiert die Ganzzahl in eine Zeichenfolge, die durch Aufrufen von _.From in ein Zeichen-Array konvertiert wird. Das char-Array wird mit der Umkehrung des char-Arrays verglichen. Wenn sie nicht gleich sind, wird das char-Array wieder zu einer Zeichenfolge zusammengefügt und zurückgegeben. Andernfalls wird nichts zurückgegeben (dh das Ergebnis ist undefiniert, was die Bibliothek immer ignoriert). Schließlich wird das letzte Element der Sequenz, dh das N-te Element, zurückgegeben

C 84 Bytes

Die Funktion f(n)akzeptiert eine Ganzzahl nund gibt eine n-thnicht-palindromische Zahl zurück (1 basierend).

g(n,r){return n?g(n/10,r*10+n%10):r;}s;f(n){for(s=9;n--;g(++s,0)==s&&s++);return s;}

Teste es auf Ideone!

Es ist ein ziemlich trivialer Code, daher gibt es wahrscheinlich Raum für Verbesserungen.

Ruby, 54 Bytes

Diese Funktion ist 1-indiziert und basiert teilweise auf der Javascript-Antwort von Dom Hastings . Ich denke, es gibt eine Möglichkeit, dies besser zu spielen, insbesondere bei dieser letzten ternären Bedingung. Außerdem gibt diese Funktion derzeit eine Zeichenfolge zurück, die möglicherweise später bearbeitet werden muss. Anregungen zum Golfen sind willkommen.

f=->x,y=?9{x<1?y:(y.next!.reverse!=y)?f[x-1,y]:f[x,y]}

Ungolfed:

def f(x, y="9")
 if x<1
  return y
 else
  y = y.next
  if y.reverse != y
   return f(x-1, y)
  else
   return f(x, y)
  end
 end
end

C ++ (GCC), 148 Bytes

Es ist 1-basiert und der Algorithmus ist wirklich naiv

#import <iostream>
using namespace std;int n,i=1;string s;main(){cin>>n;while(s=to_string(i+1),(n+=equal(begin(s),end(s),s.rbegin()))-i++);cout<<i;}

APL NARS 35 Zeichen

r←v a;c
r←c←0
A:r+←1⋄c+←r≠⍎⌽⍕r⋄→A×⍳c<a

es ist die Funktion v; "⍎⌽⍕" r setzt die Zahl r in der Zeichenkette um, kehrt diese Zeichenkette um und setzt sie von Zeichenkette zu Zahl um. Test- und Hilfefunktionen:

  ⍝ return the one string for the basic types ('Char', 'Int', 'Float', 'Complex or Quaternion or Oction')
  ⍝ or one string for composite types ('Tensor 3' 'Tensor 4' etc 'Matrix', 'List', 'String')
  ⍝ follow the example in: /codegolf//a/39745
  type←{v←⍴⍴⍵⋄v>2:'Tensor ',⍕v⋄v=2:'Matrix'⋄(v=1)∧''≡0↑⍵:'String'⋄''≡0↑⍵:'Char'⋄v=1:'List'⋄⍵≢+⍵:'Complex or Quaternion or Oction'⋄⍵=⌈⍵:'Int'⋄'Float'}
  h←{'Int'≢type ⍵:¯1⋄(⍵<1)∨⍵>2e5:¯1⋄v ⍵} 
  h 1
10
  h 1.32
¯1
  h 7878
8057
  h¨3 5 12
13 15 23 
  h 6 7 8
¯1
  h '123'
¯1
  h '1'
¯1
  h 1.0
10
  h 1.0003
¯1
  h ¯2
¯1
  h 0
¯1
  h 200000
201200
  h 200001
¯1

Schale , 6 Bytes

Ja für ↔:)

!fS≠↔N

Probieren Sie es online!

Erläuterung

 f   N  -- filter the naturals by:
  S≠    --   is it not equal to..
    ↔   --   ..itself reversed
!       -- index into that list

Perl 5 , 33 + 1 ( -p) = 34 Bytes

map{1until++$\!=reverse$\}1..$_}{

Probieren Sie es online!

C # 7, 89 Bytes

n=>{int i=9;for(;n-->0;)if(Enumerable.SequenceEqual(++i+"",(""+i).Reverse()))i++;return i;}

1 indiziert Versuchen Sie es mit Repl.It

n=>
  int i = 9;                                  | Start at 9. Iterate exactly n times. Assume n >= 1      
  for(;n-->0;)                                | Iterate n times
  if(EnumerableSequenceEqual(                 | Compare two sequences
  ++i+"",(""+i).Reverse())                    | Generate the forward and backward strings, which behave like char sequences for Linq
  i++                                         | If the sequences are equal, the number is a palindrome. Increment i to skip
  return i;                                   | Return the number after the for loop exits

Ich glaube nicht, dass dies irgendwelche Sprachfunktionen aus C # 7 verwendet, aber ich habe es da hingestellt, da ich das getestet habe

Japt , 14 12 11 10 9 Bytes

1-indiziert

@UµX¦sw}f

Versuch es

Java 8, 117 95 94 Bytes

n->{int r=10;for(;n-->0;)if((++r+"").contains(new StringBuffer(r+"").reverse()))r++;return r;}

0-indiziert

Erläuterung:

Probieren Sie es hier aus.

n->{             // Method with integer as both parameter and return-type
  int r=10;      //  Result-integer, starting at 10
  for(;n-->0;)   //  Loop an amount of times equal to the input
    if((++r+"")  //   First raise `r` by 1, and then check if `r`
               .contains(new StringBuffer(r+"").reverse()))
                 //   is the same as `r` reversed (and thus a palindrome)
      r++;       //    And if it is: raise `r` by 1 again
  return r;}     //  Return result-integer

TCC, 11 Bytes

?>!~<>;i;'T

Probieren Sie es online!

            | Printing is implicit
?>          | Find n-th number for which the following is "T":
  !~        | If not equal...
    <>;     | reverse. No value specified, so input is assumed.
       i;   | Input, since double semicolons are ignored
         'T | ... print string "T"