Rock Around the Clock

Question

In as few Unicode characters as possible, print the following (144 characters):

1, 2, 3 o'clock, 4 o'clock rock,
5, 6, 7 o'clock, 8 o'clock rock,
9, 10, 11 o'clock, 12 o'clock rock,
We're gonna rock around the clock tonight.

You must not use any numbers in your code, except the digit 1.

Answer 1

Javascript - 140 132

k=1,s=", ",t=" o'clock",x="";while(k<11)x+=k+++s+k+++s+k+++t+s+k+++t+" rock,\n";alert(x+"We're gonna rock around the clock tonight.")

The fact, that 11 is made out of two 1's let me pass the rules I guess.

Explanation

The k+++s is equal to (k++)+s, so it adds k first to x, then increments k and then it adds s to x. This process will be done three times before it adds the last sentence.

Answer 2

C# - 186

Best golf language or best golf language?

class P{static void Main(){var s="";for(int i=1;i<11;)s+=i+++", "+i+++", "+i+++" o'clock, "+i+++" o'clock rock,\n";System.Console.Write(s+"We're gonna rock around the clock tonight.");}}

Answer 3

Brainfuck (1574)

Not a serious submission, but follows the rules.

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

Can be tested here.

Answer 4

Ruby, 100

printf"%i, %i#{", %i o'clock"*r=-~1} rock,
"*-~r+"We're gonna rock around the clock tonight.",*1..$$

Answer 5

Perl 123

$s="*, *, * o'(, * o'( ),";print"$s
$s
$s
We're gonna ) around the ( tonight."=~s![(*)]!(clock,rock)[1+1+1&ord$&]||++$i!reg

The regular expression matches (, ) and *. I used the fact that the ASCII code of ( is 40, of ) is 41 and * is 42.

The r flag of the regular expression enables "in place substitution" and the e flag enables code evaluation (similar to x.replace(/.../, function(m){...}) in JavaScript).

(clock,rock) is an array of two "bare words". $& is the current match of the regular expression and ord$& is it's ASCII value.

Masked by 3 or 1+1+1 the ASCII values are now 0, 1 and 2, so I can use them to retrieve the corresponding array element. As 2 is out of the array, the "short circuit" operator || evaluates ++$i. In the first match $i is undef so incrementing it I get 1, then 2 and so on...

In simple words. This replaces * with it's current occurrence, ( with "clock" and ) with "rock".

Answer 6

Bash+coreutils, 120 ASCII, 92 Unicode

ASCII:

c=clock
f(){ echo $[++i], $[++i], $[++i] o\'$c, $[++i] o\'$c rock,;}
f
f
f
echo We\'re gonna rock around the $c tonight.

Unicode:

iconv -t unicode<<<挊挽潬正昻⤨⁻捥潨␠⭛椫ⱝ␠⭛椫ⱝ␠⭛椫⁝屯␧Ᵽ␠⭛椫⁝屯␧⁣潲正㬬㭽㭦㭦㭦捥潨圠履爧⁥潧湮⁡潲正愠潲湵⁤桴⁥挤琠湯杩瑨ਮ|sed 1d|bash

base64 encoded Unicode version (in case unicode renderings get messed up):

aWNvbnYgLXQgdW5pY29kZTw8POaMiuaMvea9rOato+aYiuKkqOKBu+aNpea9qOKQoOKtm+akq+Kx
neKQoOKtm+akq+KxneKQoOKtm+akq+KBneWxr+KQp+Kxo+KQoOKtm+akq+KBneWxr+KQp+KBo+a9
suato+OsrOCpveCppuCppuCppuaNpea9qOWcoOWxpeeIp+KBpea9p+a5ruKBoea9suato+aEoOa9
sua5teKBpOahtOKBpeaMpOeQoOa5r+adqeeRqOCornxzZWQgMWR8YmFzaAo=

Answer 7

Brainfuck, 1299

Bleuuuurgh. That was terrible. I don't know why I did this, it seemed quite easy at the start. First and probably last Brainfuck script. Try it here.

With some help from an automated code generator, I was able to write a script which reused most of the characters instead of generating each one from scratch. It's only 275 characters shorter than the one automatically generated, posted here.

The output isn't newline-terminated.

I might put a bit of explanation in later on. Essentially, any long line which isn't something like >>>>>>> or <<<<<<< or >>.>>.>>.>>. generates a character or a series of them.

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

Answer 8

Lua - 217 164 154 151 149 143

Modified the old one to use a loop instead, saves a boat-load of characters. Thanks to TeunPronk for helping me shave off another 10 characters and to WilliamBarbosa for shaving off another 3 characters. 2 more characters can be saved by using the variable k. 6 more characters are saved by eliminating the variable r=" rock," since it is used once.

o=" o'clock"c=", "w=io.write k=1+1 for i=1,11,k+k do w(i,c,i+1,c,i+k,o,c,i+k+1,o," rock,\n")end w("We're gonna rock around the clock tonight.")

Ungolfed,

o=" o'clock"
c=", "
w=io.write
k=1+1
for i=1,11,k+k do 
   w(i,c,i+1,c,i+k,o,c,i+k+1,o," rock,\n")
end
w("We're gonna rock around the clock tonight.")

Answer 9

CJam - 90 ASCII / 54 Unicode

ASCII:

{{T):T}:F~", ":CFCF" o'clock":OCFO" rock,
"}Z*"We're gonna rock around the clock tonight."

Unicode:

"ξ漰㠬༳ᆧᶃ㸩씪咦⏚騤䖫퍃᰽薂ᴤਥ궋씻㱗㽫Ƶꐥ勋䎔䃱魠ꝯ朐酠礢璿狮꓈执낦덋觫ᥛ琚"GZ)#bBC*b:c~

Try them at http://cjam.aditsu.net/

Answer 10

Python (123)

print((1+1+1)*"%i, %i, %i o'clock, %i o'clock rock,\n"%tuple(range(1,11+1+1))+"We're gonna rock around the clock tonight.")

PYG (112)

P((1+1+1)*"%i, %i, %i o'clock, %i o'clock rock,\n"%T(R(1,11+1+1))+"We're gonna rock around the clock tonight.")

Answer 11

Brainfuck - 680

test it here: ideone.com/Wi9ftB

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

as i promised, here's a better version. my brain feels like.. ooh so that's where the name comes from.

explanation: (because it is unmaintainable and i don't want to forget how it works)

firstly you have to choose the best data layout for this challenge. i came up with

-4 outmost loop -3 newline char -2 space -1 numbers 1 lowercase #1 2 lowercase #2 3 comma, apostrophe, period 4 condition (outmost loop < 3) 5 inner loop 6 second inner loop

We have to belive this is optimal unless there will be too many shifts (which case you have to rearrange the layout)

After that I used a 4x9x3 loop to set the starting values for newline, number, the two lowercase letter and the comma. (all the smaller ascii codes got 4x9=36 and the two lowercase letter got 4x9x3=108, then I added and substracted some to get their real value)

When the preset is done, the code enters the outmost loop that cycles 3 times. I explain it by pseudocode.

for 3 to 1 where i = numbers
    print '++i, '
    while inner_loop != 0              # this is true after the first loop
        while second_inner_loop != 0   # and this is true after the second
            print '10, 11 o'clock, 12' # prints the difference
            condition = 0              # it prevents the printing below
        second_inner_loop += 1
    inner_loop += 1
    while condition != 0
        print '++i, ++i o'clock, ++i'
    print ' o'clock rock,\n'

When this section is done I just have to print the last line. But we have an uppercase W that must be produced without using too many characters. At this point we are here:

Address  Value  Pointer
     -4      0  <--
     -3     10
     -2     32
     -1     50
      1     99
      2    111
      3     44

so I put [-3] 4 times to [-1] and substract 3 to get 87 (W): >[>>++++<<-]>>---.
then erase it [-]
and move [-2] to this location [-1] so space will be close to the lowercase letters. <[>+<-]

After that it just prints the letters. lowercase #1 is for the lower part 97-107 and lowercase #2 is for the above region.

Answer 12

JavaScript, 111 107 chars, without using any number.

Execute these snippets in your browser's JS console:

107 (inspired by http://xem.github.io/obfuscatweet/ plus the other JS answer):

eval(unescape(escape('').replace(/uD./g,'')))

111 (just packing all the string and removing the eval around):

unescape(escape('').replace(/uD./g,''))

Answer 13

PHP - 125 129

Version 1 (129)

$i;while($i<11)echo++$i.", ".++$i.", ".++$i." o'clock, ".++$i." o'clock rock,\n";echo"We're gonna rock around the clock tonight";

Version 2 (125)

while($i++<11)echo"$i, ".++$i.", ".++$i." o'clock, ".++$i." o'clock rock,\n";echo"We're gonna rock around the clock tonight";

Clean version:

while($i++<11)
    echo "$i, ".++$i.", ".++$i." o'clock, ".++$i." o'clock rock,\n";
echo "We're gonna rock around the clock tonight";

Answer 14

C - 145 - try me

main(i){i<11?main(i-~1+1,printf("%d, %d, %d o'clock, %d o'clock rock,\n"
,i++,i,i-~1,i-~1+1)):puts("We're gonna rock around the clock tonight.");}

C - 172 - try me

#define l ,__LINE__+~1
#define f ;printf("%d, %d, %d o'clock, %d o'clock rock,\n"
main(){f l
l
l
l)f
l
l
l
l)f
l
l
l
l);puts("We're gonna rock around the clock tonight.");}

Answer 15

Perl, 114 111 110 108

$s=", X o'clock";$_="X, X$s$s rock,
"x(1+1+1)."We're gonna rock around the clock tonight.";s/X/++$i/eg;print

110:

$s=", X o'clock";print(("X, X$s$s rock,
"x(1+1+1)."We're gonna rock around the clock tonight.")=~s/X/++$i/egr)

111:

print(("X, X, X o'clock, X o'clock rock,
"x(1+1+1)."We're gonna rock around the clock tonight.")=~s/X/++$i/egr)

114:

($s="X, X, X o'clock, X o'clock rock,
"x(1+1+1)."We're gonna rock around the clock tonight.")=~s/X/++$i/ge;print$s

Answer 16

C++ 261 203

#include<iostream>
#define x i++;
#define y std::cout<<
#define z y x y
void m(){for(int i=1;i<11;){z", ";z", ";z" o'clock, ";z" o'clock rock, "<<"\n";}y"We're gonna rock around the clock tonight.";}

Edited my first attempt; it worked when I first tested it, but that seems to be a fluke; post-increment in a stream is "undefined behaviour", and it did weird things (including blue screening Windows 7!) when I tried re-running it. I think that using printf instead of std::cout could be used with post-increment to get a shorter program.

Edited again, got it down to 231 by re-implementing the loop. Edited yet again, now down to 203...those #defines weren't all useful in the looping version.

For those wondering how C++ can run a function "m", the entry point can be defined as any function with just a compiler option, as can setting all funcs to be stdcall; I used both switches when compiling the above. If you don't like the redefined entry point, add 3 to my character count.

Answer 17

Swift - 136 134

var x=1
for;x<11;{print("\(x++), \(x++), \(x++) o'clock, \(x++) o'clock rock,\n")}
print("We're gonna rock around the clock tonight.")

Answer 18

Befunge-98 (402 268)

Now a unefunge!

".thginot kcolc eht dnuora kcor annog er'eW"a11+/a*1-> #;:,1+" ,",,:,1+" ,",,:,1+" ,kcolc'o "a1-k,:,1+a",kcor kcolc'o "ek,:a11+/a*b1111+++-+-#;_:,a-1+" ,",,:a111++-:*,,1+" ,",,:a111++-:*,,1+" ,kcolc'o "a1-k,:a111++-:*,,1+a",kcor kcolc'o "ek,:a11+/a*b1111+++-+$$$aa*k,@

Answer 19

Java, 228

A hardcoded solution would have probably been shorter.

public static void main(String[] a){
        String s = "";
        int i=1,j=1;
        for(i--,j--;i<=11;){
            s += ++i + (j > 1 ? " o'clock rock, ":", ");
            if(j == "one".length()){
                j -= j;
                s +="\n";
            }else
                j++;
        }
        System.out.println(s+"We're gonna rock around the clock tonight");
}

Answer 20

Groovy - 140 139 chars

Golfed, influenced by William Barbosa's answer:

s="ock"
i=1
f={->println "${i++}, ${i++}, ${i++} o'cl$s, ${i++} o'cl$s r$s,"}
f();f();f()
println "We're gonna r$s around the cl$s tonight"

Ungolfed:

s = "ock"
i = 1
f = { ->
    println "${i++}, ${i++}, ${i++} o'cl$s, ${i++} o'cl$s r$s,"}
}

f();f();f()

println "We're gonna r$s around the clock tonight"

Answer 21

Mathematica - 153

i=1;
StringReplace[
  StringJoin[
    Riffle[{s="X, X, X o'clock, X o'clock rock,",s,s},"\n"]]<>
    "\nWe're gonna rock around the clock tonight.","X":>ToString[i++]]

Answer 22

C++ 252

#define P(x) cout<<x
#define Q cout<<", "
#define N cout<<endl
#define C P(" o'clock")
#define R P(" rock")
#define F P(++i);Q;P(++i);Q;P(++i);C;Q;P(++i);C;R;N;
int i;
main()
{
    F F F
    P("We're gonna rock around the clock tonight.");
}

Answer 23

PowerShell, 123 118 109

1,1,1|%{"$('',''," o'clock"," o'clock rock"|%{"$((++$a))$_,"})"}
"We're gonna rock around the clock tonight."

After a horrible start (167) I got rid of a few idioms I didn't even need and at least got it shorter than the reference.

Answer 24

Java (v2) - 250 241 232 chars

This is a complete running program, influenced by William Barbosa's answer.

Golfed:

public class R{
static int o=1;
static String c(){return o+++", "+o+++", "+o+++" o'clock, "+o+++" o'clock rock,\n";}
public static void main (String[] a){System.out.println(c()+c()+c()+"We're gonna rock around the clock tonight");}}

Ungolfed:

public class R {
    static int o = 1;
    static String c() { 
        return o+++", "+o+++", "+o+++" o'clock, "+o+++" o'clock rock,\n";
    }

    public static void main (String[] a) {
        System.out.println(c()+c()+c()+"We're gonna rock around the clock tonight");
    }
}

Answer 25

ECMAScript6 - 136 135

Doesn't even use the allowed 1 digit:

alert([,...a=[s=", ",s,(c=" o'clock")+s,c+" rock,\n"],...a,...a].map((x,i)=>i+x).join("")+"We're gonna rock around the clock tonight.")

Tested in Firefox console.

Answer 26

Haskell -- 138 137 chars

As a standalone program:

r n=show n++s!!n
s=" o'clock rock,\n":c:c:" o'clock, ":s
c=", "
main=putStr$(r=<<)[1..11+1]++"We're gonna rock around the clock tonight."

Edit: I used to have a helper function o used to define s by

s=o" rock,\n":c:c:o c:s;o=(" o'clock"++)

but it turns out to cost 1 extra character. Is there any way to compress all of the "o'clock"s / "rock"s / "ock"s?

Answer 27

JavaScript, 140

a=", x o'clock",b="x, x"+a+a+" rock,\n",b+=b+=b+"We're gonna rock around the clock 
tonight.";for(i=1;i<=11+1;)b=b.replace("x",i++);alert(b)

I make a string like "x, x, x o'clock x o'clock rock,\n..." Then I replace the "x's" with numbers.

Answer 28

PHP 258 220 only with Manatwork's help

EDIT: Thank you manatwork, again you did stuff there I didn't know you could do. Thanks!

<?php $a='clock';$b=" o'";$c="$b$a rock,";$d=1+1;$e=$d+$d;$f=", ";$g=$e+$e;echo"1$f$d$f",$d+1,"$b$a$f$e$c
",$e+1,$f,$e+$d,$f,$g-1,"$b$a$f$g$c
",$g+1,$f,$g+$d,$f,"11$b$a$f","1$d$c
We're gonna rock around the clock tonight.";

I must admit I thought this was going to be quite a dull question but it turned out to be quite fun. I thought I might have a chance with this one in php. Sadly not to be :-(

Edit: Actually it might not be PHP at fault, just that I need to learn more and do a bit practice at code golf - it is actually my own fault :-)

I enjoyed trying anyway.

Original 258 chars:

<?php $a='clock';$b=" o'";$c=$b.$a." rock,";$d=1+1;$e=$d+$d;$f=", ";$g=$e+$e;echo"1".$f.$d.$f.($d+1).$b.$a.$f.$e.$c."
".($e+1).$f.($e+$d).$f.($g-1).$b.$a.$f.($g).$c."
".($g+1).$f.($g+$d).$f."11".$b.$a.$f."1".$d.$c."
We're gonna rock around the clock tonight.";?>

Answer 29

PowerShell, 156 140 136 129 127

for($i=1;$i-lt11){$i++,$i++,"$(($i++)) o'clock","$(($i++)) o'clock rock,"-join', '}"We're gonna rock around the clock tonight."

Ungolfed:

for($i = 1; $i -lt 11){
    $i++, $i++ , "$(($i++)) o'clock", "$(($i++)) o'clock rock," -join ', '
}
"We're gonna rock around the clock tonight." 

Answer 30

PHP 150

No numbers, including the 11 which would not be two 1's stuck together, but the number value eleven.

function f(){static $i;echo++$i.", ".++$i.", ".++$i." o'clock, ".++$i." o'clock rock,\n";}f();f();f();echo"We're gonna rock around the clock tonight";

Answer 31

Cobra - 193

class P
    var i=1-1
    def main
        print[.f,.f,.f,"We're gonna rock around the clock tonight."].join("")
    def f as String
        return"[[.i+=1,.i+=1,.i+=1].join(", ")] o'clock, [.i+=1] o'clock rock,\n"

Answer 32

AWK, 164 139

Boring, but my first AWK golf attempt.

BEGIN{OFS=", "
k=" o'clock "
r="rock"
print ++t,++t,++t k,++t k r,"\n"++t,++t,++t k,++t k r,"\n"++t,++t,++t k,++t k r",\nWe're gonna "r" around the clock tonight."}

OFS comes in handy here.

Shorter version:

func p(){print ++t,++t,++t k,++t k r OFS}BEGIN{OFS=", "
k=" o'clock"
r=" rock"
p()
p()
p()
print"We're gonna"r" around the clock tonight."}

Answer 33

Haskell -- 155/141 147/133 chars

147 characters as a program:

main=putStrLn.(++"We're gonna rock around the clock tonight.").concat.zipWith((++).show)[1..11+1].cycle$[", ",", "," o'clock, "," o'clock rock,\n"]

133 characters as String expression:

(++"We're gonna rock around the clock tonight.").concat.zipWith((++).show)[1..11+1].cycle$[", ",", "," o'clock, "," o'clock rock,\n"]

Answer 34

MATLAB, 199 192 182

f=1+1+1+1;a=[1,1+1,f-1,f];b=' o''clock';c=' rock';
for i=1:f-1;fprintf('%g, %g, %g,%s, %g%s%s,\n',a(1:f-1),b,a(f),b,c);a=a+f;end
fprintf('We''re gonna%s around the clock tonight.',c)

Answer 35

Scala, 156

for(i<-1 to 11 by 1+1+1+1){println(i+", "+(i+1)+", "+(i+1+1)+" o'clock, "+(i+1+1+1)+" o'clock rock,")};println("We're gonna rock around the clock tonight.")

Answer 36

Golflua -125

Basically a direct translation of my Lua solution:

k=1+1o=" o'clock"c=", "~@i=1,11,k+k I.w(i,c,i+1,c,i+k,o,c,i+k+1,o," rock,\n")$w("We're gonna rock around the clock tonight.")

Answer 37

Python 3, 100 99 Unicode

Using Unicode:

t=1+1;eval('瀠楲瑮㌨⠪┢Ⱪ┠≩㈫∪‬椥漠挧潬正⬢•潲正尬≮┩畴汰⡥慲杮⡥ⰱ㌱⤩∫敗爧⁥潧湮⁡潲正愠潲湵⁤桴⁥汣捯潴楮桧⹴⤢'.encode('utf%i'%(t*t<<t))[t:])

Encodes that string as UTF-16, dropping the first 2 bytes, resulting in:

 print(3*("%i, %i"+2*", %i o'clock"+" rock,\n")%tuple(range(1,13))+"We're gonna rock around the clock tonight.")

Note the initial space to make an even number of ASCII characters.

Checked if there were any illegal digits in there, such as from other languages, looks like I'm safe:

>>> set(c for c in """<code>""" if unicodedata.category(c)[0] == 'N')
{'1'}

Answer 38

ECMAScript: 127 characters

i=1;alert("%, %, % o'clock, % o'clock rock,\n".repeat(1+1+1).replace(/%/g,x=>i++)+"We're gonna rock around the clock tonight.")

Just to promote some ECMAScript 6 features.

Answer 39

Clojure - 261 244 178 176 chars

I'm a newbie to Clojure... suggestions welcome.

Golfed:

(let[i(atom(dec 1))](defn f[](swap! i inc))(defn p[](printf "%d, %d, %d o'clock, %d o'clock rock,\n"(f)(f)(f)(f)))(p)(p)(p)(print"We're gonna rock around the clock tonight."))

Ungolfed:

(let [i (atom (dec 1))]
  (defn f [] (swap! i inc) )
  (defn p [] (printf "%d, %d, %d o'clock, %d o'clock rock,\n" (f)(f)(f)(f)) )
  (p)(p)(p)
  (print "We're gonna rock around the clock tonight.")
)

Answer 40

Delphi, 186

Ungolfed:

var c:int32;

function i:int32;
begin
  c:=c+1;
  i:=c;
end;

begin
  while c<11 do
    writeln(i,', ',i,', ',i,' o''clock, ',i,' o''clock rock,');
  write('We''re gonna rock around the clock tonight.');
end.

Golfed:

var c:int32;function i:int32;begin c:=c+1;i:=c;end;begin while c<11do writeln(i,', ',i,', ',i,' o''clock, ',i,' o''clock rock,');write('We''re gonna rock around the clock tonight.')end.

Answer 41

Rebmu, 117 chars

O{ o'}C{clock}R{rock}S{, }T1 Ndz[igTad11 1[p[{We're going to}r{around the}c{tonight.}]qt]++T]fv[pCB[nSnSnOcSnOcSPrS]]

Un-"mushed":

o: " o'" c: "clock" r: "rock" s: ", " t: 1 n: dz [ig t ad 11 1 [p ["We're going to" r "around the" c "tonight."] qt] ++ t] fv [p cb [n s n s n o c s n o c sp r s]]

Commented:

; Define some string constants
o: { o'}
c: {clock}
r: {rock}
s: {, }

t: 1 ; assign one to T

; define a function with no arguments N (N does "DZ" the following)
n: dz [
    ; if T is greater than adding 11 to 1 (IG = If Greater, AD = Add), 
    ; print the final message and then quit 
    ig t ad 11 1 [
        p [{We're going to} r {around the} c {tonight.}] qt
    ]

    ; increment t but return its old value
    ++ t
]

; loop forever (will be exited by a quit during an invocation of N
; once it gets bigger than 12)
fv [
    ; print the result of combining (CB = Combine) the progressively
    ; increased values with the defined strings (also, SP = space)
    p cb [n s n s n o c s n o c sp r s]
]

COMBINE is being incubated in Rebmu, but hopefully on the roadmap for main Rebol/Red, see this article.

Answer 42

Scala, 142

Based on Leonardo Scattola's answer.

for(i<-1 to(11,1+1+1+1))println(f"$i, ${i+1}, ${i+1+1} o'clock, ${i+1+1+1} o'clock rock,");print("We're gonna rock around the clock tonight.")

Answer 43

><> (Fish), 133

(Uses only printable ascii.)

".thginot kcolc eht dnuora kcor annog er'eW"11.
v da-
>:?!\1-&a",kcor kcolc'o y ,kcolc'o y ,y ,y"&
/&+1/
>l?!v:bb*-?!\o
\  &;!+1n:&~/

Method:

• Push the last line once and the first one 3 times onto the stack with the numbers changed to the letter "y".
• Print everything from the stack if that's not an "y" while printing the value of an increasing counter if the character is an "y".

2 bytes saved thanks to @Sp3000.

Answer 44

JavaScript - 138

with(console){for(b=1;11>b;)log("%d, %d, %d o'clock, %d o'clock rock,",b++,b++,b++,b++);log("We're gonna rock around the clock tonight.")}

Try it in the console (uses console.log).

Inspired by izlin's answer, I just shortened it using console.log instead of alert.

Answer 45

Java - 219 215 212 208

I know there's some other Java answers, but this should be the shortest...

class A{public static void main(String[]z){String o="",c=" o' clock",r=c+" rock,\n",p=", ";for(int i=1;i<=11;)o+=i+++p+i+++p+i+++c+p+i+++r;System.out.println(o+"We're gonna rock around the clock tonight.");}}

Answer 46

Python - 195 chars

b=", ";x=" o'clock";y=' rock,\n';c=1;s="";n=1+1+1
for i in range(n):
 for j in range(n):s+=str(c)+b;c+=1
 s=s[:-1-1]+x+b+str(c)+x+y;c+=1
print s+"We're gonna rock around the clock tonight."

Answer 47

Javascript, 179 174

This is not gonna be the shortest one, but just for fun!

Golfed:

a="";for(i=1;i<=11+1;i++){a+=i.toString()+(!((i+1)%4)?" o'clock":"")+(!(i%4)?" o'clock rock":"")+", "+(!(i%4)?"\n":"");}alert(a+"We're gonna rock around the clock tonight.");

Ungolfed:

a="";
for(i=1;i<=11+1;i++){
    a+=i.toString()
        +(!((i+1)%4)?" o'clock":"")
        +(!(i%4)?" o'clock rock":"")
        +", "
        +(!(i%4)?"\n":"");
}
alert(a+"We're gonna rock around the clock tonight.");
a="";

Answer 48

F# - 173 136

Version 2 - 136

for x in[1..4..12]do printfn"%d, %d, %d o'clock, %d o'clock rock"x (x+1)(x+2)(x+3)
printfn"We're gonna rock around the clock tonight."

Version 1 - 173

System.Console.WriteLine("1, 2, 3 o'{0}, 4 o'{0} {1},\n5, 6, 7 o'{0}, 8 o'{0} {1},\n9, 10, 11 o'{0}, 12 o'{0} {1},\nWe're gonna {1} around the {0} tonight.","clock","rock")

Answer 49

Julia - 134

r="rock"
for i=1:4:12
    println("$i, $(i+1), $(i+2) $r $(i+3) o'clock $r")
end
println("We're gonna rock around the clock tonight.")

Answer 50

Octave, 125 characters

d="%d, %d, %d o'clock, %d o'clock rock,\n";
printf([d d d "We're gonna rock around the clock tonight.\n"],v=1:(a=1+1)*a++*a);

I construct [1 .. 12] vector using only ones and assignment operator, and pass it as variable argument list to printf, taking advantage of fact that printf (fmt, a, a, a) and printf(fmt, [a a a]) are both correct ways of supplying variable argument list to function.