Преобразовать программу в палиндромную программу


15

Палиндром является строкой , которая является таким же , вперед и назад, такими как «гоночным».

Напишите программу на некотором языке L, которая принимает любую программу P1 на языке L в качестве входных данных и выводит палиндромную программу P2 на языке L, которая делает то же самое, что и P1.

Вам не нужно беспокоиться об обработке программ ввода с синтаксическими ошибками.

Это код гольф , поэтому выигрывает решение с наименьшим количеством байтов.


Можем ли мы определить язык L?
Грег Хьюгилл

1
@GregHewgill Да. L - это язык, на котором вы выбираете свою программу.
Джастин

На некоторых языках это удивительно сложно.
Джастин

3
С Тьюринга подмножество Python, это правильный вход: x=input();print(x+'#'+x[::-1]). Подмножество - это набор всех программ, которые не содержат перевода строки.
Джастин

Ответы:


17

Perl, 55 54 байта

undef$/;$a=<>."\n__END__\n";print$a,scalar reverse$a;

Читает исходный код программы из стандартного ввода и пишет в стандартный вывод.

Результат запуска на себя:

undef$/;$a=<>."\n__END__\n";print$a,scalar reverse$a;

__END__

__DNE__

;a$esrever ralacs,a$tnirp;"n\__DNE__n\".><=a$;/$fednu

+1 за

3
Мне нравится, что он отмечает очевидную тарабарщину внизу надписью «DNE» - обычное сокращение для «Не стирать», используемое для маркировки предметов на классных досках / досках, чтобы люди не принимали их за неважные писанины и стирали их.
Анаксимандр

как это работает, я не знаю Perl, более конкретно, как он работает (получить строку, которую он меняет)?
Cruncher

2
1+ Работает в большинстве случаев, кроме случаев, когда программа заканчивается тем, __DATA__что читается .. например. print while(<DATA>);\n__DATA__изменит поведение.
Сильвестр

1
@Sylwester: правда. Это работает для подмножества скриптов Perl, которые не используют __DATA__. :)
Грег Хьюгилл

11

Java, 225 байт

class c{public static void main(String[]a){String s="";java.util.Scanner r=new java.util.Scanner(System.in);while(r.hasNext())s+=r.nextLine()+"\n";s=s.replace("\n","//\n");System.out.print(s+new StringBuilder(s).reverse());}}

Вывод на себя (при предварительном подтверждении):

class c {//
    public static void main(String[] a) {//
        String s = "";//
        java.util.Scanner r = new java.util.Scanner(System.in);//
        while (r.hasNext()) s += r.nextLine() + "\n";//
        s = s.replace("\n", "//\n");//
        System.out.print(s + new StringBuilder(s).reverse());//
    }//
}//

//}
//}
//;))(esrever.)s(redliuBgnirtS wen + s(tnirp.tuo.metsyS        
//;)"n\//" ,"n\"(ecalper.s = s        
//;"n\" + )(eniLtxen.r =+ s ))(txeNsah.r( elihw        
//;)ni.metsyS(rennacS.litu.avaj wen = r rennacS.litu.avaj        
//;"" = s gnirtS        
//{ )a ][gnirtS(niam diov citats cilbup    
//{ c ssalc

1
Проблема, если комментарий заканчивается на *. Смотрите комментарий
edc65

10

Python 2, 68 байт

import sys
x=''.join(l[:-1]+'#\n'for l in sys.stdin)
print x+x[::-1]

Не работает, если выполняется из IDLE, потому что вам нужно сгенерировать символ EOF, чтобы программа не ожидала ввода.

Вывод при запуске на себя:

import sys#
x=''.join(l[:-1]+'#\n'for l in sys.stdin)#
print(x+x[::-1])#

#)]1-::[x+x(tnirp
#)nidts.sys ni l rof'n\#'+]1-:[l(nioj.''=x
#sys tropmi

Спасибо Грегу Хьюгиллу за помощь в решении проблем и в гольф.


Хорошая работа, лучше, чем моя неудачная попытка Python.
Грег Хьюгилл

1
@GregHewgill Я предпочитаю хорошее голосование за хороший комментарий ;-)
Джастин

1
Хорошо, хорошо ... Я обычно не голосую против себя. :)
Грег Хьюгилл

5
@GregHewgill Я голосую "против" себя много . Я одобряю ответы, основываясь на их достоинствах, а не на том, отвечал я или нет.
Джастин

8

GolfScript, 10 9 байт

"
}"+.-1%

Совершенно похоже на решение Minitech , но оно хорошо работает с символами новой строки. Он полагается на забавное (и недокументированное) поведение GolfScript, чтобы игнорировать непревзойденный (и незакомментированный) }, а также все, что следует за ним.

Он потерпит неудачу, если вход содержит несоответствующий {, но технически это будет синтаксическая ошибка.

Как это устроено

"
}"   # Push the string "\n}".
+    # Concatenate it with the input string.
.    # Duplicate the modified string.
-1%  # Reverse the copy.

пример

$ echo -n '1{"race{car"}
> {"foo\"bar"}
> if#' | golfscript make-palindrome.gs
1{"race{car"}
{"foo\"bar"}
if#
}}
#fi
}"rab"\oof"{
}"rac{ecar"{1
$ echo '1{"race{car"}
> {"foo\"bar"}
> if#
> }}
> #fi
> }"rab"\oof"{
> }"rac{ecar"{1' | golfscript
race{car

Попробуйте 1\n2#( \nбудет символом новой строки) в качестве ввода.
Джастин

1
@Quincunx: надоедливые комментарии ... Новая строка перед фигурной скобкой должна это исправить.
Деннис

До и после. Нужно остаться палиндромом.
Джастин

@Quincunx: Конечно. Это должно работать сейчас.
Деннис

5

машинный код x86 на DOS ( .comфайл) - 70 байт

Работать с файлами .COM очень легко, потому что «загрузчик» COM помещает содержимое файла по адресу 100hи переходит туда, программа должна каким-то образом жестко закодировать его конец и игнорировать все после него, поэтому мы можем просто добавить обратная сторона первых N-1 байтов (только предостережение: если программа каким-то образом пытается делать трюки с длиной файла, все ломается).

Вот шестнадцатеричный дамп моего .COM-palyndromizing .COM:

00000000  31 db 8a 1e 80 00 c6 87  81 00 00 ba 82 00 b8 00  |1...............|
00000010  3d cd 21 72 30 89 c6 bf  ff ff b9 01 00 ba fe 00  |=.!r0...........|
00000020  89 f3 b4 3f cd 21 3c 01  75 18 b4 40 bb 01 00 cd  |...?.!<.u..@....|
00000030  21 85 ff 75 e5 89 f3 f7  d9 88 ee b8 01 42 cd 21  |!..u.........B.!|
00000040  eb d8 47 74 f0 c3                                 |..Gt..|

Он принимает входной файл в командной строке и записывает вывод в stdout; ожидаемое использование что-то вроде compalyn source.com > out.com.

Комментируемая сборка:

    org 100h

section .text

start:
    ; NUL-terminate the command line
    xor bx,bx
    mov bl, byte[80h]
    mov byte[81h+bx],0
    ; open the input file
    mov dx,82h
    mov ax,3d00h
    int 21h
    ; in case of error (missing file, etc.) quit
    jc end
    ; si: source file handle
    mov si,ax
    ; di: iteration flag
    ; -1 => straight pass, 0 reverse pass
    mov di,-1
loop:
    ; we read one byte at time at a bizarre memory
    ; location (so that dl is already at -2 later - we shave one byte)
    mov cx,1
    mov dx,0feh
    mov bx,si
    mov ah,3fh
    int 21h
    ; if we didn't read 1 byte it means we either got to EOF
    ; or sought before the start of file
    cmp al,1
    jne out
    ; write the byte on stdout
    mov ah,40h
    mov bx,1
    int 21h
    ; if we are at the first pass we go on normally
    test di,di
    jnz loop
back:
    ; otherwise, we have to seek back
    mov bx,si
    ; one byte shorter than mov cx,-1
    neg cx
    ; dl is already at -2, fix dh so cx:dx = -2
    mov dh,ch
    mov ax,4201h
    int 21h
    jmp loop
out:
    ; next iteration
    inc di
    ; if it's not zero we already did the reverse pass
    jz back
end:
    ret

Испытано само по себе, и решения предыдущего вопроса, кажется, работают нормально в DosBox, последует еще более обширное тестирование «канонических» исполняемых файлов DOS.


3

GolfScript, 8

.-1%'#'\

Не обрабатывает переводы строки, но никто не использует их в GolfScript.


6
Использование новой строки в строковых литералах можно использовать довольно часто ;-)
Говард

2

Bash + coreutils, 39 байт

f="`cat`
exit"
echo "$f"
tac<<<"$f"|rev

Читает из STDIN и выводит в STDOUT:

$ cat hello.sh 
#!/bin/bash

echo 'Hello, World!'

$ ./palin.sh < hello.sh 
#!/bin/bash

echo 'Hello, World!'
exit
tixe
'!dlroW ,olleH' ohce

hsab/nib/!#
$ 

@ user23013 Кажется, работает нормально. По крайней мере, простой тест, как ( echo 'Hello, World!' ). Bash в значительной степени игнорирует все после exit.
Цифровая травма

2

Javascript ( ES6 ) Многострочный - 71

Kinda Сорта украл метод комментариев Quincunx здесь:

alert((x=prompt().replace(/\n/g,'//\n')+'/')+[...x].reverse().join(''))

Одна строка - 49

alert((x=prompt()+'/')+[...x].reverse().join(''))

2

C ++, 214 209 байт

#include<cstdio>
#include<stack>
int main(){std::stack<char>s;int c;while((c=getc(stdin))>EOF){if(c=='\n')for(int i=2;i;i--)s.push(putchar('/'));s.push(putchar(c));}while(s.size()){putchar(s.top());s.pop();}}

Результат запуска на себя:

#include<cstdio>//
#include<stack>//
int main(){std::stack<char>s;int c;while((c=getc(stdin))>EOF){if(c=='\n')for(int i=2;i;i--)s.push(putchar('/'));s.push(putchar(c));}while(s.size()){putchar(s.top());s.pop();}}//

//}};)(pop.s;))(pot.s(rahctup{))(ezis.s(elihw};))c(rahctup(hsup.s;))'/'(rahctup(hsup.s)--i;i;2=i tni(rof)'n\'==c(fi{)FOE>))nidts(cteg=c((elihw;c tni;s>rahc<kcats::dts{)(niam tni
//>kcats<edulcni#
//>oidtsc<edulcni#

Ошибка при использовании продолжения char '\'. Попробуйте [ ideone.com/TCZHr9]
edc65

@ edc65: Да, я думал об этом позже. Единственный очевидный способ справиться с этим - сначала развернуть сложенные линии.
Грег Хьюгилл

можно сделать за небольшую плату - см. мой ответ C
edc65

2

Brainfuck, 749 без пробелов (не в гольф)

Это порождает программы, которые отражают палиндромы, то есть они являются зеркальным отражением самих себя.

++++++++++
[->++++>+++++++++<<]>+++.>+..<.>++.
>>>>+[>,]<-[+<-]
>[
  [-<+<<+>>>]
  +<-------------------------------------------[-<+>>[-]<]>[-<<<.>>>]
  +<<-[->+>[-]<<]>>[-<<<.>>>]
  +<-[-<+>>[-]<]>[-<<<.>>>]
  +<<-[->+>[-]<<]>>[-<<<.>>>]
  +<--------------[-<+>>[-]<]>[-<<<.>>>]
  +<<--[->+>[-]<<]>>[-<<<.>>>]
  +<-----------------------------[-<+>>[-]<]>[-<<<.>>>]
  +<<--[->+>[-]<<]>>[-<<<.>>>]
  <[-]>>
]
<<<<[<]
<--.<.>++..--..<.>++.
>>[>]
<[
  [->+>>+<<<]
  +>-------------------------------------------[->+<<[-]>]<[->>>.<<<]
  +>>-[-<+<[-]>>]<<[->>>.<<<]
  +>-[->+<<[-]>]<[->>>.<<<]
  +>>-[-<+<[-]>>]<<[->>>.<<<]
  +>--------------[->+<<[-]>]<[->>>++.--<<<]
  +>>--[-<+<[-]>>]<<[->>>--.++<<<]
  +>-----------------------------[->+<<[-]>]<[->>>++.--<<<]
  +>>--[-<+<[-]>>]<<[->>>--.++<<<]
  >[-]<<
]
<--.<.>++..<.

Учитывая программу, которую он выводит

+[[+]PROGRAM[+]][[+]MIRROR[+]]+

с PROGRAMи MIRRORзаменены программой (без символов без мозговых ошибок) и ее зеркальным отображением.


2

С 168 175

Правильно обрабатывает экранированный символ новой строки внутри исходного кода

Редактировать 1 исправлена ​​ошибка, когда последний символ новой строки отсутствовал
Редактировать 2 исправлена ​​ошибка, когда строка внутри комментария заканчивалась на *: добавление символа табуляции перед //комментарием
(и игра в гольф еще)

b[999999];main(c,z){char*p,for(p=b;(*p=c=getchar())>=0;z=c,p++)c-10||(z-92?*p++=9,*p++=47,*p++=47,*p=c:(p-=2));*p=47;for(p=b;*p;)putchar(*p++);for(;p>b;)putchar(*--p);}

Стандарт C99, действительный код, много предупреждений

Ungolfed

b[999999]; // working buffer ~ 4M on 32 bit machine, max source size
// c is current char, z is previous char,
main(c,z) // z  start as argv pointer, will be out of char range
{
  char *p;
  for(p = b; 
      (*p=c=getchar()) >= 0; // while testing EOF copy char to buffer set c variable
      z=c, p++) // at end loop increment p and set previous = current
  {
      c-'\n' || // if newline 
       (z - '\\' // check if escaped
          ? *p++='\t',*p++='/',*p++='/', *p=c // if not escaped, add tab,/,/ and newline
          : (p-=2) // if escaped, drop both escape and newline
       ); 
  }
  *p='/'; // if last newline missing, will add a comment anyway
  for(p=b;*p;) putchar(*p++); // ouput buffer 
  for(;--p>=b;) putchar(*p); // outbut buffer reversed
}

1
в этом есть небольшая ошибка. попробуйте/* *<NL> */int main(){}
jimmy23013

1

C # - 174

using System;using System.Linq;class c{public static void Main(){var a="";var b="";while((a=Console.ReadLine())!="")b+=a+"//\n";Console.Write(b+string.Concat(b.Reverse()));}}

Тестовый ввод:

using System; 
using System.Linq; 
class c 
{ 
    public static void Main() 
    { 
        var a = ""; 
        var b = ""; 
        while ((a = Console.ReadLine()) != "") 
            b += a + "//\n"; 
        Console.Write(b+string.Concat(b.Reverse())); 
    } 
} 

Тестовый вывод:

using System; 
using System.Linq; 
class c 
{ 
    public static void Main() 
    { 
        var a = ""; 
        var b = ""; 
        while ((a = Console.ReadLine()) != "") 
            b += a + "//\n"; 
        Console.Write(b+string.Concat(b.Reverse())); 
    } 
} 

// }
// }
// ;)))(esreveR.b(tacnoC.gnirts+b(etirW.elosnoC
// ;"n\//" + a =+ b
// )"" =! ))(eniLdaeR.elosnoC = a(( elihw
// ;"" = b rav
// ;"" = a rav
// {
// )(niaM diov citats cilbup
// {
// c ssalc
// ;qniL.metsyS gnisu
// ;metsyS gnisu

Я думаю, что вы, возможно, неправильно поняли одну из инструкций. Ваша программа должна иметь возможность принимать любую программу в качестве входных данных и записывать палиндромную программу, которая делает то же самое, что и оригинальная программа.
Грег Хьюгилл

Может .. Если я введу код C ++ из вашего ответа, он вернет именно то, что у вас есть.
JZM

Все, что делает ваша программа, это обратный ввод. Вывод вашей программы не является полной палиндромной программой.
Грег Хьюгилл

О да, я понял Обновлено - лучше сейчас?
JZM

2
Да, это так. Ваш тестовый вывод должен теперь иметь //в конце каждой строки.
Грег Хьюгилл

0

PHP, 96 байт

function a($b){
    echo $c = "a('$b')" . strrev("a)'" . $b . "'(");
    $d = substr($c, 0, strlen($b) + 5);
    eval("$d;");
}

Пример использования:

a('apple'); // echoes a('apple')('elppa')a until your bytes get exhausted

В этом нет ничего умного. Это просто кусок кода, который делает работу ... У меня было настроение играть. Я знаю, что этот код изобилует плохими практиками программирования!

Наконец, я с удовольствием приму любую критику и изменения в этот код!


Добро пожаловать в Code Golf. Это функция, а не программа. Посмотрите другие ответы, они дают хорошие примеры.
AL

0

Кобра - 134

class P
    def main
        i=List<of String?>(Console.readLine.split('\n'))
        print '/#\n[i.reversed.join("\n")]\n#/#\n[i.join("\n")]\n#/'

0

Ракетка 133

(require srfi/13)(let((r read-line)(w display))(let l((i(r)))(when
(not(eq? eof i))(w i)(w";\n")(l(r))(w"\n;")(w(string-reverse i)))))

Неуравновешенный (но все еще очень необходимый):

(require srfi/13)
(let recurse ((instr (read-line)))
  (when (not (eof-object? instr))
    (display instr)
    (display ";\n")
    (recurse (read-line))
    (display "\n;")
    (display (string-reverse instr))))

Выводится, когда в качестве входных данных указана версия без заглавных букв:

(require srfi/13);
(let recurse ((instr (read-line)));
  (when (not(eof-object? instr));
    (display instr);
    (display ";\n");
    (recurse (read-line));
    (display "\n;");
    (display (string-reverse instr))));

;))))rtsni esrever-gnirts( yalpsid(    
;)";n\" yalpsid(    
;))enil-daer( esrucer(    
;)"n\;" yalpsid(    
;)rtsni yalpsid(    
;))rtsni ?tcejbo-foe(ton( nehw(  
;)))enil-daer( rtsni(( esrucer tel(
;)31/ifrs eriuqer(
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.