[Sheph]

How long is this one?

Spoiler

public class A {
	public static void main(String[] a) {
		String[] n = {"First","Second","Third","Fourth","Fifth","Sixth","Seventh","Eighth","Nineth","Tenth","Eleventh","Twelfth"};
		String[] v = {"\nTwo turtle doves,","\nThree french hens","\nFour calling birds","\nFive golden rings","\nSix geese-a-laying",
				"\nSeven swans-a-swimming","\nEight maids-a-milking","\nNine ladies dancing","\nTen lords-a-leaping","\nEleven pipers piping","\nTwelve drummers drumming",""};
		
		String b = "\nA partridge in a pear tree";
		int d = 0;
		
		for(;d<12;d++) {
			System.out.println("On the " + n[d] + " of Christmas,\nMy true love gave to me," + b + "\n");
			if(d==0)
				b="\nAnd "+b.substring(1);
			b=v[d]+b;
		}
	}
}

Edit: I don't know how to find the number of chars, but saving it to notepad in its completely stripped (but still syntactically correct form), I got 649 byte file. I'm assuming that's the number of chars? Anyone know how I can verify?

This post has been edited by Sheph: 22 December 2011 - 12:32 AM

[AdamSpeight2008]

Sheph: Generally it the count of non-whitespace chars.
To check you could write your a small application that does it.
In Nemerle:

def CountNonWhiteSpace = (s:string) => s.Count(c => !Char.IsWhiteSpace( c ));

This post has been edited by AdamSpeight2008: 22 December 2011 - 10:31 AM

[blackcompe]

@Sheph: Why not use a character counter website? Delete the white space yourself. Purely speculation, but the file size may reflect character encodings, so it may not be the *correct* way to determine character count if your using characters outside the Basic Multilingual Plane.

This post has been edited by blackcompe: 27 December 2011 - 03:13 AM

[GunnerInc]

Don't think I can get the lowest number of characters, but this how I would do it in Assembly. Scratch the source I have in the zip up there, I changed to this:

include masm32rt.inc

ConsolePrint    equ     print

.data
szNewLine       BYTE    13, 10, 0
szA             BYTE    "A ", 0
szAnd           BYTE    "And a ", 0             
szTop           BYTE    "On the ", 0
szTop2          BYTE    " day of Christmas,", 13, 10
                BYTE    "my true love gave to me...", 13, 10, 0
                
szFirst         BYTE    "first", 0
szSecond        BYTE    "second", 0
szThird         BYTE    "third", 0
szFourth        BYTE    "fourth", 0
szFifth         BYTE    "fifth", 0
szSixth         BYTE    "sixth", 0
szSeventh       BYTE    "seventh", 0
szEighth        BYTE    "eighth", 0
szNinth         BYTE    "nineth", 0
szTenth         BYTE    "tenth", 0
szEleventh      BYTE    "eleventh", 0
szTwelfth       BYTE    "twelfth", 0  

sz1             BYTE    "partridge in a pear tree", 13, 10, 0
sz2             BYTE    "Two turtle doves,", 13, 10, 0
sz3             BYTE    "Three French hens,", 13, 10, 0
sz4             BYTE    "Four calling birds,", 13, 10, 0
sz5             BYTE    "Five golden rings,", 13, 10, 0
sz6             BYTE    "Six geese a-laying,", 13, 10, 0
sz7             BYTE    "Seven swans a-swimming,", 13, 10, 0
sz8             BYTE    "Eight maids a-milking,", 13, 10, 0
sz9             BYTE    "Nine ladies dancing,", 13, 10, 0
sz10            BYTE    "Ten lords a-leaping,", 13, 10, 0
sz11            BYTE    "Eleven pipers piping,", 13, 10, 0
sz12            BYTE    "Twelve drummers drumming,", 13, 10, 0
TOTALSIZE       equ ($ - szNewLine)

NUMBERS         DWORD   szFirst
                DWORD   szSecond
                DWORD   szThird
                DWORD   szFourth
                DWORD   szFifth
                DWORD   szSixth
                DWORD   szSeventh
                DWORD   szEighth
                DWORD   szNinth
                DWORD   szTenth
                DWORD   szEleventh
                DWORD   szTwelfth
                
THINGS          DWORD   sz1
                DWORD   sz2
                DWORD   sz3
                DWORD   sz4
                DWORD   sz5
                DWORD   sz6
                DWORD   sz7
                DWORD   sz8
                DWORD   sz9
                DWORD   sz10
                DWORD   sz11
                DWORD   sz12

.code        
Align 4
@12DaysOfXMas:
    enter   12, 0
    invoke  GetProcessHeap    
    mov     dword ptr [ebp -4], eax

    invoke  HeapAlloc, eax, HEAP_ZERO_MEMORY, TOTALSIZE
    mov     edi, eax
    
    lea     esi, NUMBERS
    lea     ebx, THINGS
    
    mov     dword ptr [ebp - 12], 0
NextVerse:
    cmp     dword ptr [ebp - 12], 11
    ja      Done

    mov     ecx, dword ptr [ebp - 12]
    test    ecx, ecx
    jnz     NotFirstVerse
    
    invoke  szMultiCat, 6, edi, offset szTop, dword ptr[esi + 4 * ecx], offset szTop2, offset szA, dword ptr[ebx + 4 * ecx], offset szNewLine            
    ConsolePrint   edi
    mov     byte ptr [edi], 0
    jmp     IDunno2
    
NotFirstVerse:
    invoke  szMultiCat, 3, edi, offset szTop, dword ptr[esi + 4 * ecx], offset szTop2
    mov     ecx, dword ptr [ebp - 12]
    mov     dword ptr [ebp - 8], ecx
@@:
    mov     edx, dword ptr [ebp - 8]
    test    edx, edx
    jnz     NotPartridge
    invoke  szMultiCat, 2, edi, offset szAnd, dword ptr [ebx + 4 * edx]
    jmp     Next2
    
NotPartridge:
    invoke  szCatStr, edi, dword ptr [ebx + 4 * edx]
    
Next2:        
    dec     dword ptr [ebp - 8] 
    jns     @B    
    ConsolePrint   edi    
    mov     byte ptr  [edi], 0
    
IDunno2:
    inc     dword ptr [ebp - 12]
    invoke  szCatStr, edi, offset szNewLine
    jmp     NextVerse
    
Done:
    invoke  HeapFree, dword ptr[ebp -4], 0, edi
    inkey
    leave
    invoke  ExitProcess, 0
end @12DaysOfXMas

[Sheph]

Ok. Update on my code. I forgot to add "day" in day of christmas. I fixed it and changed a few things. I used the website you suggested, blackcompe, and this is executable java code that gives proper output at 644 characters. (If you want readable code, go to my previous post )

Spoiler

class B{public static void main(String[] a){String[] n={"First","Second","Third","Fourth","Fifth","Sixth","Seventh","Eighth","Nineth","Tenth","Eleventh","Twelfth"};String[] v={"\nTwo turtle doves","\nThree french hens","\nFour calling birds","\nFive golden rings","\nSix geese-a-laying","\nSeven swans-a-swimming","\nEight maids-a-milking","\nNine ladies dancing","\nTen lords-a-leaping","\nEleven pipers piping","\nTwelve drummers drumming",""};String b="\nA partridge in a pear tree";int d = 0;for(;d<12;){System.out.println("On the "+n[d]+" day of Christmas,\nMy true love gave to me,"+b+"\n");if(d<1)b="\nAnd "+b.substring(1);b=v[d++]+b;}}}

Notepad text file is 644 bytes as well. So no different encoding, but always good to check.

This post has been edited by Sheph: 22 December 2011 - 07:47 PM

[blackcompe]

1593 characters stripped in MIPS assembly.

Spoiler

.data
a:.asciiz"On the "
b:.asciiz" day of Christmas\n"
c:.asciiz"My true love gave to me\n"
d:.asciiz""
e:.asciiz"Two turtle doves\n"
f:.asciiz"Three french hens\n"
g:.asciiz"Four calling birds\n"
h:.asciiz"Five golden rings\n"
i:.asciiz"Six geese-a-laying\n"
D:.asciiz"Seven swans-a-swimming\n"
k:.asciiz"Eight maids-a-milking\n"
l:.asciiz"Nine ladies dancing\n"
m:.asciiz"Ten lords-a-leaping\n"
n:.asciiz"Eleven pipers piping\n"
o:.asciiz"Twelve drummers drumming\n"
p:.asciiz"A partridge in a pear tree\n\n"
q:.asciiz"And a partridge in a pear tree\n\n"
r:.asciiz"first"
s:.asciiz"second"
t:.asciiz"third"
u:.asciiz"fourth"
v:.asciiz"fifth"
w:.asciiz"sixth"
x:.asciiz"seventh"
y:.asciiz"eighth"
z:.asciiz"ninth"
A:.asciiz"tenth"
E:.asciiz"eleventh"
C:.asciiz"twelfth"
F:.word d,e,f,g,h,i,D,k,l,m,n,o
G:.word r,s,t,u,v,w,x,y,z,A,E,C
.text
main:la $s0,F
la $s1,G
li $s2,0
li $s4,12
H:move $a0,$s2
jal I
li $s3,0
J:move $a0,$s3
jal K
beq $s2,$s3,L
addi $s3,$s3,1
j J
L:bne $s2,$zero,M
N:li $a0,1
j O
M:li $a0,2
O:jal P
addi $s2,$s2,1
beq $s2,$s4,Q
j H
Q:j R
I:move $t0,$a0
addi $sp,$sp,-4
sw $ra,0($sp)
li $v0,4
la $a0,a
syscall
sll $t0,$t0,2
add $t0,$s1,$t0
li $v0,4
lw $a0,0($t0)
syscall
li $v0,4
la $a0,b
syscall
li $v0,4
la $a0,c
syscall
lw $ra,0($sp)
addi $sp,$sp,4
jr $ra
K:addi $sp,$sp,-4
sw $ra,0($sp)
move $t0,$a0
sll $t0,$t0,2
add $t0,$s0,$t0
li $v0,4
lw $a0,0($t0)
syscall
lw $ra,0($sp)
addi $sp,$sp,4
jr $ra
P:addi $sp,$sp,-4
sw $ra,0($sp)
li $t0,2
beq $a0,$t0,S
T:li $v0,4
la $a0,p
syscall
j U
S:li $v0,4
la $a0,q
syscall
U:lw $ra,0($sp)
addi $sp,$sp,4
jr $ra
R:li $v0,10
syscall

This post has been edited by blackcompe: 23 December 2011 - 10:41 PM

[wordswords]

public class mainClass {

	public static void main(String[] argv){
		
		String[] days = {"first","second","third","fourth","fifth","sixth","seventh","eighth","nineth","tenth","eleventh","twelveth"};
		String[] gifts = {"a partridge in a pear tree","Two turtle doves","Three french hens","Four calling birds","Five golden rings","Six geese-a-laying","Seven swans-a-swimming","Eight maids-a-milking","Nine ladies dancing","Ten lords-a-leaping","Eleven pipers piping","Twelve drummers drumming"};
		
		for(int i=0;i<days.length;i++){
			System.out.print("\nFor the " + days[i] + " day of christmas, my true love gave to me:\n");
			for(int j=i;j>-1;j--){
				if(i>0 && j==0) System.out.print("and ");
				System.out.println(gifts[j]);
			}
		}
		
	}
}

750 characters including whitespace
700 characters without whitespace

This post has been edited by wordswords: 26 December 2011 - 07:46 PM

[wordswords]

public class A{public static void main(String[] a){String[] d ={ "first", "second", "third", "fourth", "fifth","sixth", "seventh", "eighth", "nineth", "tenth","eleventh", "twelveth" };String[] g={ "a partridge in a pear tree", "Two turtle doves","Three french hens", "Four calling birds", "Five golden rings","Six geese-a-laying", "Seven swans-a-swimming","Eight maids-a-milking", "Nine ladies dancing","Ten lords-a-leaping", "Eleven pipers piping","Twelve drummers drumming" };int i = 0;String r;for (;i<12;i++) {r="\nFor the "+d[i]+" day of Christmas, my true love gave to me:\n";int j=i;for(;j>-1;j--){if (i>0&&j==0)r=r+("and ");r=r+g[j]+"\n";}System.out.println(r);}}}

673 characters without whitespace..

[GunnerInc]

Used to be 3934 bytes (chars)
Got it down to 1855 bytes. I could probably get it down a bit more by removing the CRLF's from a few strings and add them in code. Readability is out the door for this one but it assembles and works:

Spoiler

include masm32rt.inc
cp equ print
mc equ szMultiCat
of equ offset
dp equ dword ptr
.data 
nl db 13,10,0
n2  db "A ",0
n3 db "And a ",0
n4 db "On the ",0
n5 db " day of Christmas,",13,10
db "my true love gave to me",13,10,0
a db "first",0
b db "second",0
d db "third",0
e db "fourth",0
f db "fifth",0
g db "sixth",0
h db "seventh",0
i db "eighth",0
j db "nineth",0
k db "tenth",0
l db "eleventh",0
m db "twelfth",0  
n db "partridge in a pear tree",13,10,0
o db "Two turtle doves",13,10,0
p db "Three French hens",13,10,0
q db "Four calling birds",13,10,0
r db "Five golden rings",13,10,0
s db "Six geese a-laying",13,10,0
t db "Seven swans a-swimming",13,10,0
u db "Eight maids a-milking",13,10,0
v db "Nine ladies dancing",13,10,0
w db "Ten lords a-leaping",13,10,0
x db "Eleven pipers piping",13,10,0
y db "Twelve drummers drumming",13,10,0
Z equ ($-nl)
_ dd a
dd b
dd d
dd e
dd f
dd g
dd h
dd i
dd j
dd k
dd l
dd m
_1 dd n
dd o
dd p
dd q
dd r
dd s
dd t
dd u
dd v
dd w
dd x
dd y
.code
A:enter 12,0
call GetProcessHeap
mov dp[ebp-4],eax
push Z
push 8
push eax
call HeapAlloc
mov edi,eax
lea esi,_
lea ebx,_1
mov dp[ebp-12],0
B:cmp dp[ebp-12],11
ja H
mov ecx,dp[ebp-12]
test ecx,ecx
jnz D
push[ebx+4*ecx]
push of n2
push of n5
push[esi+4*ecx]
push of n4
push edi
push 5
call mc
cp edi
xor ecx, ecx
mov[edi],ecx
jmp F
D:push of n5
push[esi+4*ecx]
push of n4
push edi
push 3
call mc
mov ecx,dp[ebp-12]
mov dp[ebp-8],ecx
@@:mov edx,dp[ebp-8]
test edx,edx
jnz E
push[ebx+4*edx]
push of n3
push edi
push 2
call mc
jmp G
E:push[ebx+4*edx]
push edi
call szCatStr
G:dec dp[ebp-8]
jns @B
cp edi
xor ecx,ecx
mov[edi],ecx
F:inc dp[ebp-12]
push of nl
push edi
call szCatStr
jmp B
H:push edi
push 0
push dp[ebp -4]
call HeapFree
inkey
leave
push 0
call ExitProcess
end A

This post has been edited by GunnerInc: 26 December 2011 - 09:25 PM

[anonymouscodder]

#!/bin/bash
cardinal=(Two Three Four Five Six Seven Eight Nine Ten Eleven Twelve)
ordinal=(first second third fourth fifth sixth seventh eighth nineth tenth
		eleventh twelfth)
stuff=("turtle doves" "french hens" "calling birds" "golden rings"
		"geese-a-laying" "swans-a-swimming" "maids-a-milking" "ladies dancing"
		"lords-a-leaping" "pipers piping" "drummers drumming")
for (( i=0; i < ${#ordinal[@]}; ++i )) do
	echo -e "On the ${ordinal[$i]} day of Christmas,\nMy true love gave to me,"
	for (( j=i-1; j>=0; --j )) do
		echo "${cardinal[$j]} ${stuff[$j]},"
	done
	[ $i -gt 0 ] && echo -n "And a " || echo -n "A " 
	echo -e "partridge in a pear tree.\n"
done

This post has been edited by anonymouscodder: 26 December 2011 - 09:44 PM

[AdamSpeight2008]

I think this first sub 500 char one (at 497)
C#

class p{static void Main(){var s="";var d="1st/A Partrige in peartree/2nd/Two turtledove/3rd/Three french hens/4th/Four calling birds/5th/Five golden rings/6th/Six geese-a-laying/7th/Seven swans-a-swimming/8th/Eight maids-a-milking/9th/Nine ladies dancing/10th/Ten lords-a-leaping/11th/Eleven pipers piping/12th/Twelve drummers drumming".Split('/');for(var i=0;i<23;i+=2){s+="On the "+d[i]+" day of Christmas\nMy true love gave to me\n";for(var x=i+1;x>0;x-=2){s+=(i>0&&x<2?"And ":"")+d[x]+"\n";}s+="\n";}System.Console.WriteLine(s);}}

[wordswords]

Are you allowed to use abbreviations, ie: 12th instead of twelfth?

[Sinned]

I wrote my code, satisfies all requirements.
And it is in Java!

When removing all unneeded spaces, I get to: 650 Characters!

Here is the small code:

Spoiler

class a{public static void main(String[]B)/>{String[]c=new String[]{"first","second","third","fourth","fifth","sixth","seventh","eighth","ninth","tenth","eleventh","twelfth"},d={"a partridge in a pear tree","Two turtle doves","Three french hens","Four calling birds","Five golden rings","Six geese-a-laying","Seven swans-a-swimming","Eight maids-a-milking","Nine ladies dancing","Ten lords-a-leaping","Eleven pipers piping","Twelve drummers drumming"};int e=0,f;for(;e<12;e++){o("On the "+c[e]+" day of Christmas\nMy true love gave to me\n");for(f=e;f>=0;f--){if(f<1&&e>0)o("And ");o(d[f]+"\n");}o("\n");}}static void o(String s){System.out.print(s);}}

If you want to see the full code (for a better look on), here it is:

Spoiler

class a
{
	public static void main(String[] B)/>
	{
		String[] c = new String[]{"first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth"},
				d = {"a partridge in a pear tree", "Two turtle doves", "Three french hens", "Four calling birds", "Five golden rings", "Six geese-a-laying", "Seven swans-a-swimming", "Eight maids-a-milking", "Nine ladies dancing", "Ten lords-a-leaping", "Eleven pipers piping", "Twelve drummers drumming"};
		int e=0,f;
		for(; e<12; e++)
		{
			o("On the " + c[e] + " day of Christmas,\nMy true love gave to me,\n");
			for(f=e; f>=0; f--)
			{
				if(f<1&&e>0)
					o("And ");
				o(d[f]+"\n");
			}
			o("\n");
		}
	}
	static void o(String s)
	{
		System.out.print(s);
	}
}

[cfoley]

Thanks for all the replies and entries so far!

wordswords - no abbreviations but you can cut down on the punctuation (see my first post)

Here is my entry:

public class E {
	public static void main(String[] args) {
		String s = "";
		int i;
		for (int c : "าⅷྣ炇♃ⳃ妕ሗ䁖屼⌕䧣ങ撊屨䁲瑈喉盶ᤖḲ⻽Ậ䤽庸➫崬宫彬宫⌨⻱ㄝ嵪䞫帬徫帨⎫攏帨徫㴚⻹櫽旨ᱨ䌕唐ᱶ䌕䖐瑊⇨䔙㉣唓䱶㉬॑⋽㱱Ẳၶ⇣㉤॑㈽഑᲏夌უパ॑ㄝ嵪ሃ壬ಃ㶐䖎瑊攖ศፖ໑塤䆚䖐瑊涖⅃⋈ಃ炏⨬➢⌬䥃⃯呱⨬瑖扉ᡵ㷤⨬ィ壵徢⊫⑨䔕൦䔋瑖䭗拣㻵ᱨ⌲ၖೱಝ咓㊷ⅇ䖃ಃᄓ屵ℕ"
				.toCharArray())
			while (c > 0) {
				i = c & 31;
				s += (char) (i < 3 ? 10 : i < 4 ? 32 : i + 93);
				c >>= 5;
			}
		String[] S = s.split("z");
		s = "";
		for (i = 2; i < 14;)
			System.out.println(S[0] + S[i] + S[1] + (s = S[27 - i++] + s));
	}
}

Comes it at 381 chars with non-essential whitespace removed.

[Mylo]

Nice cfoley!

628 characters for me with no spaces

public class a
{
	public static void main(String[] z)
	{

		String a = "\nOn the %s day of Christmas, my true love gave to me,\n";
		String[][] b = { { "first", "second", "third", "forth", "fifth", "sixth", "seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth" },
				{ "a partridge in a pear tree.", "Two turtle doves,", "Three french hens,", "Four calling birds,", "Five golden rings,", "Six geese-a-laying,", "Seven swans-a-swimming,", "Eight maids-a-milking,", "Nine ladies dancing,", "Ten lords-a-leaping,", "Eleven pipers piping,", "Twelve drummers drumming," } };
		int n = 0;
		for (int v = 0; v < 12;)
		{
			System.out.printf(a, b[0][v++]);
			for (int k = 0; k <= n;)
				System.out.println(b[1][n - k++]);
			if (v == 1)
				b[1][0] = "and " + b[1][0];	
			n++;
		}

	}
}