Кодирование в песне - Представление музыкальных текстов на языке программирования по вашему выбору [закрыто]

13

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

Учитывая, что это сложно само по себе, вы можете написать один фрагмент стандартного кода, который не считается читаемым в тексте. Однако, как только начинается блок кода, который должен быть прочитан как текст песни, вы не можете прервать его, пока песня не будет закончена. Вы можете указать начало и конец кода песни с комментариями. Пожалуйста, укажите сами тексты песен, как если бы вы читали код. Вы можете быть «либеральными» в своей интерпретации, если не будете слишком далеко уходить от написанного, иначе это будет стоить вам очков.

Частичная лирика песни допускается, хотя вы получаете двойные баллы за слова в целой песне. Судейство делится на 3 категории:

  1. 10 баллов - оригинальность
  2. 10 баллов - сложность песни
  3. 20 баллов - представление этой песни в коде.

Для каждого представления, я буду давать вам ваш счет в комментарии ниже. Если вы отредактируете свой ответ, просто дайте мне индикатор комментария, и я переоценю его соответственно. Однако, чтобы быть справедливым, каждая переоценка вычитает 2 балла из вашего общего балла.

Примером может быть следующее:

public class Song {
    public String play() {
        // Song begin
        try {
            if(this instanceof TheRealLife || this instanceof JustFantasy) {
                throw new InALandSlide();
            }
        } catch (InALandSlide e) {
        }
        return "No \"FromReality\"";
        // Song end
    }

    public static void main(String [] args) {
        Song song = new Song();
        song.play();
    }
}

Который читается:

Is this TheRealLife?
Or is this JustFantasy?
Caught InALandSlide.
No escape \"FromReality\"

Инструменталы не разрешены, мудрые ребята. ;)

code-challenge Нил
источник
4
Это интересная концепция, и мне интересно увидеть результаты, но это не очень объективно. Как определить «сложность» песни? (и т. д.)
Гаффи
3
Сильно напоминает мне об этом победителе IOCCC
Ugoren
@Gaffi, в основном длина, но и многословность. Примером песни, которая наберет 0, может быть эта песня длиной всего 6 слов .
Нейл
Как насчет HQ9программы 9? : P
Ли-Аунг Ип
1
Подсказка для любого, кто пытается найти подходящую песню для кодирования: «Побег в пустоту» кажется многообещающим названием :) - lyricstime.com/sepultura-escape-to-the-void-lyrics.html
Кристиан Лупаску,

Ответы:

8

Питон - 8 + 4 + 15 = 27 очков

Вот пара строф из « Охоты на Снарка » Льюиса Кэрролла.
Он вычисляет число, основываясь на алгоритме, предложенном в стихотворении, и использует его, чтобы сформулировать доказательство о голосе jubjub.

class taking:
    def __init__(self, n): convenient.val = (n)
    def __enter__(self): pass
    def __exit__(self, type, value, traceback): pass
def a(x,y): x.val = y(x.val); return True
class We:
    def __init__(self): self.val=0
    def __add(self, y): return y+sum(self.x)
    def add(self, *x): self.x = x; return self.__add
    def multiply(self,x,by,diminished_by): self.val *= by-diminished_by
    def proceed2divide(self,x,by): self.val /= by
    def subtract(self,x): self.val -= x; return True
perfectly = lambda x: x and not not x
def must_be(x):
    if x: 
        print "\n".join(["Tis the %s of the Jubjub!"%["voice","note","song"][x%3] for x in range(out.val)])
        return out.val
out=convenient=as_you_see=we=then=the=We()
_ = exactly = 15
with\
\
    taking(3) as the_subject_to_reason_about:
    a(convenient, #2 state
    we.add(7,_ & 10)) and then.multiply(out,
    by=1000, diminished_by=8)

    the_result = we.proceed2divide(as_you_see,
    by=992)
    then.subtract(17) and the; answer = must_be(
    exactly and perfectly(True))

Оригинальный текст:

«Принимая три в качестве предмета для рассуждения о
- удобном числе для констатации -
мы добавляем семь и десять, а затем умножаем на
тысячу, уменьшенную на восемь.

«Результат, который мы переходим к делению, как вы видите, на
девятьсот девяносто два:
затем вычтите семнадцать, и ответ должен быть
точно и совершенно верным».

ugoren
источник
Это приятно, мне это нравится. Originality: 8/10, Song difficulty: 4/10, Representation of that song in code: 15/20, Делая ваш окончательный счет 27. Позор вы не могли использовать всю песню.
Нейл
2
Я думаю, что критерий "всей песни" имеет слишком большой вес. Было бы намного проще выбрать песню в одну строку.
Угорен
Учитывая, что «Охота на Снарка» имеет длину более 500 строк, это действительно было бы впечатляющим подвигом.
хлебница
1
@breadbox, даже одна подгонка была бы впечатляющим подвигом, все это было бы агонией.
Угорен
6

Python (8 + 7 + 15 = 30)

Действительный код на Python, хотя и не делает ничего особенно полезного ;-)

from sys import exit as stops ; import os
thing = [] ; me = can = remember = False ; this = open(__file__)
def terrible(v): return v

# ==== start song snippet

me = can = remember = not any(thing)
can = not this.tell(), [True, "dream"]
locals()["deep"] = {"down":{"inside":{"feel_to":"scream"}}}
if `this` + (terrible("silence")): stops(me)

# ===== end song snippet

Как это должно быть прочитано:

Я ничего не помню.
Не могу сказать, правда это или мечта.
В глубине души мне хочется кричать.
Это ужасное молчание останавливает меня.
...
(Metallica - One)

ChristopheD
источник
Вау, сложный выбор песни, но очень впечатлило то, как ты справился с этим. Originality: 8/10, Song difficulty: 7/10, Representation of that song in code: 15/20, Делая свой окончательный счет 30.
Neil
5

С

Несколько небрежно, я написал это за 15 минут для хихиканья. Компилируется и работает нормально с последней версией G ++ / MinGW (правда, не особо много). Вы можете понять это просто отлично, я думаю:

class Rick {

public:

    struct us { bool you; bool me; };

    bool giveYouUp()  { return false; }
    bool letYouDown() { return false; }
    bool runAround()  { return false; }
    bool desertYou()  { return false; }
    bool makeYouCry() { return false; }
    bool sayGoodbye() { return false; }
    bool tellALie()   { return false; }
    bool hurtYou()    { return false; }

    bool thinkingOf(bool whatImThinkingOf) { return whatImThinkingOf; }
    bool justWantTo(bool whatIWantToDo) { return whatIWantToDo; }
    bool tellYou(bool whatIWantToTellYou) { return whatIWantToTellYou; }

    void roll() {
        bool gonna = false;
        while (gonna) {
            giveYouUp();
            letYouDown();
            gonna = (runAround() && desertYou());
            makeYouCry();
            sayGoodbye();
            gonna = (tellALie() && hurtYou());
        }

        bool strangersToLove = true;
        us we = {!strangersToLove, !strangersToLove};

        bool knowTheRules = true;
        bool you = knowTheRules, I = knowTheRules;

        bool aFullCommitment = true;
        we.me = thinkingOf(aFullCommitment);

        int me = 0;
        Rick* guys[] = {this, nullptr, nullptr, nullptr, nullptr};

        bool howImFeeling = true;
        we.me = justWantTo(tellYou(howImFeeling));

        bool understand = true;
        while (we.you != understand) {
            we.you = understand;
        }
    }

};

int main() {
    Rick rick;
    rick.roll();

    return 0;
}
Stuntddude
источник
2

Скала (48 = 2 * (7 + 4 + 13))

Это Linux! песня.

object Song extends App {
  // Compose a song
  trait Compose {
    override def toString = {
      val token = """^.*\$(.*)\$.*$""".r
      val token(verse) = super.toString
      verse.replaceAll("([a-z])([A-Z])", "$1 $2").capitalize
    }
    def excl(ex: String) = println(this + ex)
    def !!(c: Compose) = { excl("."); c }
    def ***(c: Compose) = { excl("..."); c }
    def !(c: Compose) = { excl("!"); c }
    def *(c: Compose) = { excl(","); c }
    def ! = excl("!")
  }
  // It's linux  - lyrics
  case object ItBootsUpFine extends Compose
  case object AllOfTheTime extends Compose
  case object TuxThePenguinIsGreat extends Compose
  case object aPieInTheFace extends Compose
  case object ToTheManIHate extends Compose
  case object EveryoneKnowsItsLinux extends Compose
  case object StableForYouAndMe extends Compose
  case object ItsLinux extends Compose
  case object NoMoreBSODs extends Compose
  case object BetterThanNT extends Compose
  case object BestOfAllItsFree extends Compose
  case object FreeSoftwareForYouAndMe extends Compose
  case object LinuxGPLd extends Compose

  // Singer to sing a song
  def sing(song: => Unit) = { song }

  // Song begins
  sing {
      ItBootsUpFine!
      AllOfTheTime!!
      TuxThePenguinIsGreat!
      aPieInTheFace*
      ToTheManIHate***
      EveryoneKnowsItsLinux!
      ItsLinux!
      ItsLinux!
      StableForYouAndMe!
      ItsLinux!
      ItsLinux!
      NoMoreBSODs!
      ItsLinux!
      ItsLinux!
      BetterThanNT!
      ItsLinux!
      ItsLinux!
      BestOfAllItsFree!
      FreeSoftwareForYouAndMe***
      LinuxGPLd!
  }
  // Song ends
}

Выход:

It Boots Up Fine!
All Of The Time.
A Pie In The Face,
Tux The Penguin Is Great!
To The Man IHate...
Everyone Knows Its Linux!
Its Linux!
Its Linux!
Stable For You And Me!
Its Linux!
Its Linux!
No More BSODs!
Its Linux!
Its Linux!
Better Than NT!
Its Linux!
Its Linux!
Best Of All Its Free!
Free Software For You And Me...
Linux GPLd!
Принц Джон Уэсли
источник
Originality: 7/10, Song difficulty: 4/10, Representation of that song in code: 13/20. Поскольку вы записываете всю песню целиком, это удваивает ваш счет, так что ваш окончательный счет составляет 48. Хороший. :)
Нил
1

PHP

Попробовал мою любимую песню «Лестница на небеса».

$GLOBALS['sign']= 'words';

class lady extends me // there is a lady
{
  function __construct(){   // who is sure
    global $glitters = 'gold'; // all that glitters is gold
    $buy('stairway_to_heaven'); // and shes buying the stairway to heaven
  }
  $know[] = 'stars are close'; // when she get's there she knows, the stars are close
  function word(){  // with a word she can get
    debug_backtrace(); // what she come for
  }

  $this->buy('stairway_to_heaven'); // and she's buying the stairway to heaven

  $sign = 'words'; // there is a sign on the door
  if(!$sign === $GLOBALS['sign']) // but she want to be sure, cause you know sometimes words have 2 meanings
    exit();

  in_array($tree / $brook, $songbird ? 'sings'); // (literal) in a tree by the brook, there is a songbird who sings

  mysql_real_escape_string($_GET['thoughts']); // sometimes all of our thoughts are misgiven
  for ($i=0;$i<2;i++)
    parent::wonder(); // makes me wonder , makes me wonder

}

Как это читается:

Есть женщина, которая уверена, что все, что блестит, это золото,
и она покупает лестницу на небеса.
Когда она туда добирается, она знает, что все звезды рядом.
Одним словом она может получить то, ради чего пришла.
Ох, ох, и она покупает лестницу в рай.

На стене есть табличка, но она хочет быть уверенной
, потому что вы знаете, что иногда слова имеют два значения.
В дереве у ручья есть певчая птица, которая поет,
Иногда все наши мысли ошибочны.
О, это заставляет меня задуматься,
О, это заставляет меня удивляться.

Картик
источник
1

С

Вот полная песня.
Вы можете слушать это в Мире Мамы Лизы .
Обратите внимание, что песня включена как есть, включая знаки препинания.

#define breath,
#define smell breath
#define an;}Englishman; main(){printf("%d\n",sizeof
struct x{int
// Song starts here
Fee, fa, fie, fo, fum,
I smell the breath of an Englishman.
// Song ends here
I);}

Печатает номер 4.

ugoren
источник
1

Рубин

Мой взгляд на максимально близкое представление. Это легко с цепочкой вызовов Руби.

$lines = []

def thisline n=2
    caller(n).first.match(/:(\d+):/)[1].to_i
end

class Chain < Array
    def method_missing method, *args
        $lines[thisline] = Chain[first, self[1], [method, thisline, args]]
    end

    def -(arg)
        $lines[thisline] = Chain[' - ', thisline, self, arg]
    end

    def tokens
        if size < 3
            if first == :_
                []
            else
                [first.to_s.tr(?_, ?\s).strip]
            end
        elsif size < 4
            [first.to_s.tr(?_, ?\s)] + at(2).tokens
        else
            lhs = case el = at(2)
            when Chain then el.tokens
            when String
                el.empty? ? [?'] : [?', el, ?']
            end

            rhs = case el = at(3)
            when Chain then el.tokens
            when Range then el.first.tokens + ['... '] + el.last.tokens
            end

            lhs + [first.to_s.tr(?_, ?\s)] + rhs
        end
    end
end

def self.method_missing method, *args
    line = thisline(3)

    if args.length > 1
        newlines = args.first.is_a?(String) ? args.first.count(?\n) : 0
        $lines[line] = false
        $lines[line-newlines] = Chain[method, line, Chain[', ', line, *args]]
    else
        $lines[line] = Chain[method, line, *args]
    end
end

####################

The pest in_the eyes of death follows us
Through the dirty streets of blood
It begins to eat inside us, decaying_our_bones
How will we escape_if the void covers our lungs?
We are buried_in the spewed trash_for ourselves

Blood _, pain - nothing_to_say
Why then_- must_we_die?

Escape to the void
Escape to the void

I look at my face on the other side of the mirror
My face falls down_in pieces full of worms
I burst my rotten heart with my own hands
I'm dying and I can',t_help_myself

Blood _, pain - nothing_to_say
Why then_- must_we_die?

What have I been running from?
I'',m_not_guilty
You've shown me the worst way
Cause you',re_my_victim... the_next_one

The pest in_the eyes of death follows us
Through the dirty streets of blood
It begins to eat inside us, decaying_our_bones
How will we escape if_the void covers our lungs?
We are buried in_the spewed trash_for ourselves

Blood _, pain - nothing_to_say
Why then_ - must_we_die?

Escape to the void
Escape to the void

####################

$lines.drop_while {|line| !line }.each_with_index {|line, i|
    puts if line.nil?
    next if not line

    line = line.tokens
    line.map!.with_index {|el, j|
        punct = [', ', ' - ', '... ', ?']

        if line[j-1] == ?' and el == ', '
            ''
        elsif punct.include?(el) or punct.include?(line[j+1])
            el
        else
            el + ?\s
        end
    }

    puts line.join
}

Выход

The pest in the eyes of death follows us 
Through the dirty streets of blood 
It begins to eat inside us, decaying our bones 
How will we escape if the void covers our lungs? 
We are buried in the spewed trash for ourselves 

Blood, pain - nothing to say 
Why then - must we die? 

Escape to the void 
Escape to the void 

I look at my face on the other side of the mirror 
My face falls down in pieces full of worms 
I burst my rotten heart with my own hands 
I'm dying and I can't help myself 

Blood, pain - nothing to say 
Why then - must we die? 

What have I been running from? 
I'm not guilty 
You've shown me the worst way
Cause you're my victim... the next one 

The pest in the eyes of death follows us 
Through the dirty streets of blood 
It begins to eat inside us, decaying our bones 
How will we escape if the void covers our lungs? 
We are buried in the spewed trash for ourselves 

Blood, pain - nothing to say 
Why then - must we die? 

Escape to the void 
Escape to the void

Сделать

  1. Многострочные запятые (аргументы)
  2. Многострочные точки (вызовы методов)
Cabron
источник
0

T-SQL Bone Thugs-N-Harmony

DECLARE @line1 varchar(25);
DECLARE @line2 varchar(25);
DECLARE @line4 varchar(25);
DECLARE @line5 varchar(25);

SET @line1 = 'Wake up, wake up, wake up,';
SET @line2 = 'its the';
SET @line4 = 'to get up, get up get up';
SET @line5 = 'so cash your checks and get up';

SELECT @line1 as Layzie, @line2 as Bizzy,
CONVERT(date,DATEADD(day, -
(SELECT
DATEPART(day, GETDATE()) 
- 1), GETDATE())) as FirstOfTheMonth,
@line4 as Layzie, @line5 as Bizzy;

Да, я знаю, что я немного обманул, и у меня могут быть участники, которые также пели, что неправильно.

Стивен
источник
0

C - Бутылки пива

Скомпилируйте и запустите это. Тексты добавлены в исходный код. Скомпилируйте и выполните вывод, чтобы получить следующую строку песни. Когда он говорит «Время идти ....», то скомпилируйте и выполните с количеством бутылок, указанным в командной строке, например:

cl prog.c
prog 32 > prog1.c
cl prog1.c
prog1 > .... etc

Код, протестированный с использованием VS2005: -

// Time to go to the shop and get some beer
//
//
//
//
// #####.#####.#####.#####.#####.#####.#####
// ##.#####.#####.#####.#####.#####.#####.##
// #####.#####.#####.#####.#####.#####.#####
// ##.#####.#####.#####.#####.#####.#####.##

char *z [] = {
"void l(char *s,int b){int i;printf(\"// \");for(i=0;i<b;++i)printf(s);",
"printf(\"\\n\");}\nint main(int argc, char *argv[]){\nint i,j,k,x=%d;",
"char*p;\nif(!x&&argc==2)x=atoi(argv[1]);\nif(!x){printf(\"// Time to ",
"go to the shop and get some beer\\n//\\n//\\n//\\n//\\n\");k=7;\n",
"}else{printf(\"// %%d bottles of beer on the wall, %%d bottles of beer",
".\\n\",x,x);printf(\"// Take one down and pass it round, \");\n",
"if(x>1)printf(\"%%d bottles of beer on the wall.\\n//\\n\",x-1);\n",
"else printf(\"no more bottles of beer on the wall.\\n//\\n\");\n",
"k=x>2?x:2;l(\"  ^   \",x);l(\" / \\\\  \",x);l(\"/   \\\\ \",x);",
"l(\"|   | \",x);l(\"|Duf| \",x);l(\"|   | \",x);l(\"----- \",x);}\n",
"for(i=0;i<4;++i){\nprintf(\"// %%s\", i&1 ? \"##.\" : \"\");\n",
"for(j=i&1;j<k;++j)\nprintf(\"%%s#####\",j!=(i&1)?\".\":\"\");\n",
"printf(\"%%s\\n\",i&1?\".##\":\"\");}\nprintf(\"\\nchar *z [] = {\\n\");\n",
"for(i=0;i<sizeof z/sizeof z[0];++i){\nprintf(\"\\\"\");\n",
"for(p=z[i];*p;++p)\nswitch (*p){\ncase '\\n':printf(\"\\\\n\");break;\n",
"case '\\\\':printf(\"%%c%%c\",92,92);break;\n",
"case '%%':printf(\"%%c\",37);break;\ncase '\"':printf(\"%%c%%c\",92,'\"');break;\n",
"default:printf(\"%%c\", *p);break;}\nprintf(\"\\\",\\n\");}\n",
"printf(\"};\\n\");\nfor(i=0;i<sizeof z/sizeof z[0];++i)\n",
"printf(z[i],x?x-1:0);}\n",
};
void l(char *s,int b){int i;printf("// ");for(i=0;i<b;++i)printf(s);printf("\n");}
int main(int argc, char *argv[]){
int i,j,k,x=0;char*p;
if(!x&&argc==2)x=atoi(argv[1]);
if(!x){printf("// Time to go to the shop and get some beer\n//\n//\n//\n//\n");k=7;
}else{printf("// %d bottles of beer on the wall, %d bottles of beer.\n",x,x);printf("// Take one down and pass it round, ");
if(x>1)printf("%d bottles of beer on the wall.\n//\n",x-1);
else printf("no more bottles of beer on the wall.\n//\n");
k=x>2?x:2;l("  ^   ",x);l(" / \\  ",x);l("/   \\ ",x);l("|   | ",x);l("|Duf| ",x);l("|   | ",x);l("----- ",x);}
for(i=0;i<4;++i){
printf("// %s", i&1 ? "##." : "");
for(j=i&1;j<k;++j)
printf("%s#####",j!=(i&1)?".":"");
printf("%s\n",i&1?".##":"");}
printf("\nchar *z [] = {\n");
for(i=0;i<sizeof z/sizeof z[0];++i){
printf("\"");
for(p=z[i];*p;++p)
switch (*p){
case '\n':printf("\\n");break;
case '\\':printf("%c%c",92,92);break;
case '%':printf("%c",37);break;
case '"':printf("%c%c",92,'"');break;
default:printf("%c", *p);break;}
printf("\",\n");}
printf("};\n");
for(i=0;i<sizeof z/sizeof z[0];++i)
printf(z[i],x?x-1:0);}
Skizz
источник
1
Я не извиняюсь за свое искусство ASCII!
Skizz
1
Впечатляет, но как это соотносится с вызовом? Я думал, что идея заключается в том, что вы можете прочитать источник как песню.
Угорен
1
@ugoren: скомпилируйте и запустите исполняемый файл с одним параметром - начальным количеством пива. Затем программа выводит первый стих песни в виде исходного кода (ну, текст в верхнем комментарии). Скомпилируйте вывод и снова запустите, чтобы получить следующий стих и так далее.
Skizz
Очень красиво, но идея программы не в том, что печатает песню. Это программа, которая, когда ее источник читается, является песней.
Угорен
0

Perl исполняет Barnes & Barnes

С тех пор, как я впервые изучил Perl, я хотел оправдать использование этой -Pопции. Сегодня это оправдание наконец пришло:

#define cry $$
#define people $_
#define some kill
#define we people
#define whenyoudie END
sub yeah{}

# "When You Die", Barnes & Barnes

whenyoudie { you stop drinking beer }
whenyoudie { you stop being here }
whenyoudie { some people,cry }
whenyoudie { we=say "goodbye" }

                yeah

Запустите его -M5.010в дополнение к -Pопции, например так:

$ perl -PM5.010 whenyoudie
goodbye
Hangup
$
Хлебница
источник