Skip to main content
Code Golf

Return to Answer

Forgot how Perl worked for part of the ungolfed code, I fixed it
Source Link
pslessard
pslessard
  • 39
  • 5

Perl 5, 312 292 bytes

$_=lc<>;$n="(na ?)";/^(na ){7}na$|(na ){9,}na/ or$_="%Africa&Toto";s/$n{12,}/%Land Of 1000 Dances&Wilson Pickett/;s/$n{11}/%Hey Jude&The Beatles/;s/$n{10}/%Katamari Damacy&Yuu Miyake/;s/$n{8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;s/&/\nArtist: /g;s/%/Song: /g;print

Try it online!

Ungolfed:

$_ = lc <STDIN>;
$_ =~ /^(na ){7}na$|(na ){9,}na/ or $_ = "%Africa&Toto";
$_ ==~ s/(na ?){12,}/%Land Of 1000 Dances&Wilson Pickett/;
$_ ==~ s/(na ?){11}/%Hey Jude&The Beatles/;
$_ ==~ s/(na ?){10}/%Katamari Damacy&Yuu Miyake/;
$_ ==~ s/(na ?){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;
$_ ==~ s/&/\nArtist: /g;
$_ ==~ s/%/Song: /g;
print $_

Perl 5, 312 292 bytes

$_=lc<>;$n="(na ?)";/^(na ){7}na$|(na ){9,}na/ or$_="%Africa&Toto";s/$n{12,}/%Land Of 1000 Dances&Wilson Pickett/;s/$n{11}/%Hey Jude&The Beatles/;s/$n{10}/%Katamari Damacy&Yuu Miyake/;s/$n{8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;s/&/\nArtist: /g;s/%/Song: /g;print

Try it online!

Ungolfed:

$_ = lc <STDIN>;
/^(na ){7}na$|(na ){9,}na/ or $_ = "%Africa&Toto";
$_ = s/(na ?){12,}/%Land Of 1000 Dances&Wilson Pickett/;
$_ = s/(na ?){11}/%Hey Jude&The Beatles/;
$_ = s/(na ?){10}/%Katamari Damacy&Yuu Miyake/;
$_ = s/(na ?){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;
$_ = s/&/\nArtist: /g;
$_ = s/%/Song: /g;
print $_

Perl 5, 312 292 bytes

$_=lc<>;$n="(na ?)";/^(na ){7}na$|(na ){9,}na/ or$_="%Africa&Toto";s/$n{12,}/%Land Of 1000 Dances&Wilson Pickett/;s/$n{11}/%Hey Jude&The Beatles/;s/$n{10}/%Katamari Damacy&Yuu Miyake/;s/$n{8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;s/&/\nArtist: /g;s/%/Song: /g;print

Try it online!

Ungolfed:

$_ = lc <STDIN>;
$_ =~ /^(na ){7}na$|(na ){9,}na/ or $_ = "%Africa&Toto";
$_ =~ s/(na ?){12,}/%Land Of 1000 Dances&Wilson Pickett/;
$_ =~ s/(na ?){11}/%Hey Jude&The Beatles/;
$_ =~ s/(na ?){10}/%Katamari Damacy&Yuu Miyake/;
$_ =~ s/(na ?){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;
$_ =~ s/&/\nArtist: /g;
$_ =~ s/%/Song: /g;
print $_
added 448 characters in body
Source Link
pslessard
pslessard
  • 39
  • 5

Perl 5, 312 292 bytes

$_=lc<>;$n="(na ?)";/^(na ){7}na$|(na ){9,}na/ or$_="%Africa&Toto";s/$n{12,}/%Land Of 1000 Dances&Wilson Pickett/;s/$n{11}/%Hey Jude&The Beatles/;s/$n{10}/%Katamari Damacy&Yuu Miyake/;s/$n{8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;s/&/\nArtist: /g;s/%/Song: /g;print

#Perl, 312 bytesTry it online!

$_=lc<>;/^(na){8}$|(na){10}|(na){11}|(na\s?+){12,}/ or$_="%Africa&Toto";s/\s//g;s/(na){12}.?+/%Land Of 1000 Dances&Wilson Pickett/;s/(na){11}/%Hey Jude&The Beatles/;s/(na){10}/%Katamari Damacy&Yuu Miyake/;s/(na){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;s/&/\nArtist: /g;s/%/Song: /;print

Ungolfed:

$_ = lc <STDIN>;
$_ ~= /^(na){8}$|(na){10}|(na){11}|(na\s?+){12,}/ or $_ = "%Africa&Toto";
$_ ~= s/\s//g;
$_ ~= s/(na){12}.?+/%Land Of 1000 Dances&Wilson Pickett/;
$_ ~= s/(na){11}/%Hey Jude&The Beatles/;
$_ ~= s/(na){10}/%Katamari Damacy&Yuu Miyake/;
$_ ~= s/(na){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;
$_ ~= s/&/\nArtist: /g;
$_ ~= s/%/Song: /;
print $_

$_ = lc <STDIN>;
/^(na ){7}na$|(na ){9,}na/ or $_ = "%Africa&Toto";
$_ = s/(na ?){12,}/%Land Of 1000 Dances&Wilson Pickett/;
$_ = s/(na ?){11}/%Hey Jude&The Beatles/;
$_ = s/(na ?){10}/%Katamari Damacy&Yuu Miyake/;
$_ = s/(na ?){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;
$_ = s/&/\nArtist: /g;
$_ = s/%/Song: /g;
print $_

#Perl, 312 bytes

$_=lc<>;/^(na){8}$|(na){10}|(na){11}|(na\s?+){12,}/ or$_="%Africa&Toto";s/\s//g;s/(na){12}.?+/%Land Of 1000 Dances&Wilson Pickett/;s/(na){11}/%Hey Jude&The Beatles/;s/(na){10}/%Katamari Damacy&Yuu Miyake/;s/(na){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;s/&/\nArtist: /g;s/%/Song: /;print

Ungolfed:

$_ = lc <STDIN>;
$_ ~= /^(na){8}$|(na){10}|(na){11}|(na\s?+){12,}/ or $_ = "%Africa&Toto";
$_ ~= s/\s//g;
$_ ~= s/(na){12}.?+/%Land Of 1000 Dances&Wilson Pickett/;
$_ ~= s/(na){11}/%Hey Jude&The Beatles/;
$_ ~= s/(na){10}/%Katamari Damacy&Yuu Miyake/;
$_ ~= s/(na){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;
$_ ~= s/&/\nArtist: /g;
$_ ~= s/%/Song: /;
print $_

Perl 5, 312 292 bytes

$_=lc<>;$n="(na ?)";/^(na ){7}na$|(na ){9,}na/ or$_="%Africa&Toto";s/$n{12,}/%Land Of 1000 Dances&Wilson Pickett/;s/$n{11}/%Hey Jude&The Beatles/;s/$n{10}/%Katamari Damacy&Yuu Miyake/;s/$n{8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;s/&/\nArtist: /g;s/%/Song: /g;print

Try it online!

Ungolfed:

$_ = lc <STDIN>;
/^(na ){7}na$|(na ){9,}na/ or $_ = "%Africa&Toto";
$_ = s/(na ?){12,}/%Land Of 1000 Dances&Wilson Pickett/;
$_ = s/(na ?){11}/%Hey Jude&The Beatles/;
$_ = s/(na ?){10}/%Katamari Damacy&Yuu Miyake/;
$_ = s/(na ?){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;
$_ = s/&/\nArtist: /g;
$_ = s/%/Song: /g;
print $_
Source Link
pslessard
pslessard
  • 39
  • 5

#Perl, 312 bytes

$_=lc<>;/^(na){8}$|(na){10}|(na){11}|(na\s?+){12,}/ or$_="%Africa&Toto";s/\s//g;s/(na){12}.?+/%Land Of 1000 Dances&Wilson Pickett/;s/(na){11}/%Hey Jude&The Beatles/;s/(na){10}/%Katamari Damacy&Yuu Miyake/;s/(na){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;s/&/\nArtist: /g;s/%/Song: /;print

Ungolfed:

$_ = lc <STDIN>;
$_ ~= /^(na){8}$|(na){10}|(na){11}|(na\s?+){12,}/ or $_ = "%Africa&Toto";
$_ ~= s/\s//g;
$_ ~= s/(na){12}.?+/%Land Of 1000 Dances&Wilson Pickett/;
$_ ~= s/(na){11}/%Hey Jude&The Beatles/;
$_ ~= s/(na){10}/%Katamari Damacy&Yuu Miyake/;
$_ ~= s/(na){8}/%Batman Theme&Neal Hefti\n%Na Na Hey Hey Kiss Him Goodbye&Steam/;
$_ ~= s/&/\nArtist: /g;
$_ ~= s/%/Song: /;
print $_