/* metajoke.c
 *
 * inspired by this reddit thread:
 *  http://w...content-available-to-author-only...t.com/r/Jokes/comments/2q7fb1/multilevel_meta_joke/cn3oqzh
 */
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
const char* meta_pre = "A guy walks into a bar and asks the bartender for a free drink. The bartender says \"I'll give you a free drink if you can tell me a ";
const char* meta_upper2_add = "multi-level ";
const char* meta_upper_add = "meta ";
const char* meta_base_add = "good ";
const char* meta_mid = "joke.\" So the guy says \"";
const char* meta_post = "\" So the bartender gives him a free beer.";
const char* base_joke = "What do you do when you see a spaceman? You park, man.";
 
char* meta_joke(size_t depth) {
    const size_t base_joke_size = strlen(base_joke);
    const size_t meta_size = strlen(meta_pre) + strlen(meta_mid)
                             + strlen(meta_post);
    const size_t base_meta_size = meta_size + strlen(meta_base_add);
    const size_t upper_meta_size = meta_size + strlen(meta_upper_add);
    const size_t upper2_meta_size = upper_meta_size + strlen(meta_upper2_add);
 
    char* joke;
    size_t joke_size = base_joke_size;
 
    if (depth > 2) {
        joke_size = joke_size + (depth-2) * upper2_meta_size;
    }
    if (depth > 1) {
        joke_size = joke_size + upper_meta_size;
    }
    if (depth > 0) {
        joke_size = joke_size + base_meta_size;
    }
 
    joke = malloc(joke_size);
 
    if (depth > 0) {
        strcat(joke, meta_pre);
        if (depth > 2) {
            strcat(joke, meta_upper2_add);
        }
        if (depth > 1) {
            strcat(joke, meta_upper_add);
        } else {
            strcat(joke, meta_base_add);
        }
        strcat(joke, meta_mid);
        strcat(joke, meta_joke(depth-1));
        strcat(joke, meta_post);
    } else {
        strcat(joke, base_joke);
    }
 
    return joke;
}
 
int main() {
    /*
    int i;
 
    for (i = 3; i >= 0; i = i - 1) {
        printf("Depth: %d\n%s\n\n", i, meta_joke(i));
    }
    */
 
    printf("%s\n", meta_joke(3));
 
    return 0;
}

LyogbWV0YWpva2UuYwogKgogKiBpbnNwaXJlZCBieSB0aGlzIHJlZGRpdCB0aHJlYWQ6CiAqICBodHRwOi8vdy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4udC5jb20vci9Kb2tlcy9jb21tZW50cy8ycTdmYjEvbXVsdGlsZXZlbF9tZXRhX2pva2UvY24zb3F6aAogKi8KCiNpbmNsdWRlIDxzdGRpby5oPgojaW5jbHVkZSA8c3RkbGliLmg+CiNpbmNsdWRlIDxzdHJpbmcuaD4KCmNvbnN0IGNoYXIqIG1ldGFfcHJlID0gIkEgZ3V5IHdhbGtzIGludG8gYSBiYXIgYW5kIGFza3MgdGhlIGJhcnRlbmRlciBmb3IgYSBmcmVlIGRyaW5rLiBUaGUgYmFydGVuZGVyIHNheXMgXCJJJ2xsIGdpdmUgeW91IGEgZnJlZSBkcmluayBpZiB5b3UgY2FuIHRlbGwgbWUgYSAiOwpjb25zdCBjaGFyKiBtZXRhX3VwcGVyMl9hZGQgPSAibXVsdGktbGV2ZWwgIjsKY29uc3QgY2hhciogbWV0YV91cHBlcl9hZGQgPSAibWV0YSAiOwpjb25zdCBjaGFyKiBtZXRhX2Jhc2VfYWRkID0gImdvb2QgIjsKY29uc3QgY2hhciogbWV0YV9taWQgPSAiam9rZS5cIiBTbyB0aGUgZ3V5IHNheXMgXCIiOwpjb25zdCBjaGFyKiBtZXRhX3Bvc3QgPSAiXCIgU28gdGhlIGJhcnRlbmRlciBnaXZlcyBoaW0gYSBmcmVlIGJlZXIuIjsKY29uc3QgY2hhciogYmFzZV9qb2tlID0gIldoYXQgZG8geW91IGRvIHdoZW4geW91IHNlZSBhIHNwYWNlbWFuPyBZb3UgcGFyaywgbWFuLiI7CgpjaGFyKiBtZXRhX2pva2Uoc2l6ZV90IGRlcHRoKSB7CiAgICBjb25zdCBzaXplX3QgYmFzZV9qb2tlX3NpemUgPSBzdHJsZW4oYmFzZV9qb2tlKTsKICAgIGNvbnN0IHNpemVfdCBtZXRhX3NpemUgPSBzdHJsZW4obWV0YV9wcmUpICsgc3RybGVuKG1ldGFfbWlkKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICsgc3RybGVuKG1ldGFfcG9zdCk7CiAgICBjb25zdCBzaXplX3QgYmFzZV9tZXRhX3NpemUgPSBtZXRhX3NpemUgKyBzdHJsZW4obWV0YV9iYXNlX2FkZCk7CiAgICBjb25zdCBzaXplX3QgdXBwZXJfbWV0YV9zaXplID0gbWV0YV9zaXplICsgc3RybGVuKG1ldGFfdXBwZXJfYWRkKTsKICAgIGNvbnN0IHNpemVfdCB1cHBlcjJfbWV0YV9zaXplID0gdXBwZXJfbWV0YV9zaXplICsgc3RybGVuKG1ldGFfdXBwZXIyX2FkZCk7CgogICAgY2hhciogam9rZTsKICAgIHNpemVfdCBqb2tlX3NpemUgPSBiYXNlX2pva2Vfc2l6ZTsKCiAgICBpZiAoZGVwdGggPiAyKSB7CiAgICAgICAgam9rZV9zaXplID0gam9rZV9zaXplICsgKGRlcHRoLTIpICogdXBwZXIyX21ldGFfc2l6ZTsKICAgIH0KICAgIGlmIChkZXB0aCA+IDEpIHsKICAgICAgICBqb2tlX3NpemUgPSBqb2tlX3NpemUgKyB1cHBlcl9tZXRhX3NpemU7CiAgICB9CiAgICBpZiAoZGVwdGggPiAwKSB7CiAgICAgICAgam9rZV9zaXplID0gam9rZV9zaXplICsgYmFzZV9tZXRhX3NpemU7CiAgICB9CgogICAgam9rZSA9IG1hbGxvYyhqb2tlX3NpemUpOwoKICAgIGlmIChkZXB0aCA+IDApIHsKICAgICAgICBzdHJjYXQoam9rZSwgbWV0YV9wcmUpOwogICAgICAgIGlmIChkZXB0aCA+IDIpIHsKICAgICAgICAgICAgc3RyY2F0KGpva2UsIG1ldGFfdXBwZXIyX2FkZCk7CiAgICAgICAgfQogICAgICAgIGlmIChkZXB0aCA+IDEpIHsKICAgICAgICAgICAgc3RyY2F0KGpva2UsIG1ldGFfdXBwZXJfYWRkKTsKICAgICAgICB9IGVsc2UgewogICAgICAgICAgICBzdHJjYXQoam9rZSwgbWV0YV9iYXNlX2FkZCk7CiAgICAgICAgfQogICAgICAgIHN0cmNhdChqb2tlLCBtZXRhX21pZCk7CiAgICAgICAgc3RyY2F0KGpva2UsIG1ldGFfam9rZShkZXB0aC0xKSk7CiAgICAgICAgc3RyY2F0KGpva2UsIG1ldGFfcG9zdCk7CiAgICB9IGVsc2UgewogICAgICAgIHN0cmNhdChqb2tlLCBiYXNlX2pva2UpOwogICAgfQoKICAgIHJldHVybiBqb2tlOwp9CgppbnQgbWFpbigpIHsKICAgIC8qCiAgICBpbnQgaTsKCiAgICBmb3IgKGkgPSAzOyBpID49IDA7IGkgPSBpIC0gMSkgewogICAgICAgIHByaW50ZigiRGVwdGg6ICVkXG4lc1xuXG4iLCBpLCBtZXRhX2pva2UoaSkpOwogICAgfQogICAgKi8KCiAgICBwcmludGYoIiVzXG4iLCBtZXRhX2pva2UoMykpOwoKICAgIHJldHVybiAwOwp9