Write lines in detention

Question

Introduction

Bad news guys - you got detention. Your English teacher doesn't understand this site and wants you to "stop doing math on your digital dohickeys, this is English class!"

She sentenced you to write her favorite saying on the blackboard 25 times, which will give a total of 100 lines on the blackboard.

The eighteen-hundreds were a time for rum.
The nineteen-hundreds were a time for fun.
The two-thousands are a time to run
a civilized classroom.

Lucky for you, you are an avid reader (not to mention an expert code-golfer)! You have a read about a trick that might possibly get you off easy.

(Foxtrot by Bill Amend)

Unfortunately for Jason, it didn't work out. But you have a better idea! Since your English teacher thinks you're doing math, if you leave all the numbers out of your program it just might work! You also want to keep your program as short as possible because you are a lazy student and don't want to write a lot on the board.

Write a program that complies with the following rules:

• Your program must print the 4 above lines 25 times. The lines must be outputted in that order, repeating. Total exactly 100 lines of output (a trailing newline at the very end or a leading newline at the very beginning is okay).
• You cannot use the characters 0123456789. Your teacher gets confused by math and will call you out!
• You can use any imports and external libraries without counting the imports. Your English teacher doesn't know about programming. Jason could have saved a lot of work by not writing #include <stdio.h> and you don't want to make his same mistakes!
• Score your program by byte count. Lowest score wins!

Answer 1

Rant, 191 bytes

Not the shortest solution, but still cool. I wrote a subroutine to write the first three lines, and designed it so calling it with an empty argument returned a string 25 characters long. I then pass its length to the repeater.

[pin:][$[_:a]:The [arg:a][sync:;ordered]{thousands a|teen-hundreds we}re a time ][r:[len:[$_:]]]{[step:][$_:eigh]for rum.\N[$_:nine]for fun.\N[step:][$_:two-]to run\Na civilized classroom.\N}

Ungolfed:

[pin:]
[$[_:a]:The [arg:a][sync:;ordered]{thousands a|teen-hundreds we}re a time ]
[r:[len:[$_:]]]
{
    [step:]
    [$_:eigh]for rum.\N
    [$_:nine]for fun.\N
    [step:]
    [$_:two-]to run\N
    a civilized classroom.\N
}

Try it online

Answer 2

Perl, 140 139

improving on chilemagic answer. feature say for 3 bytes, text redundancy for 3 bytes.

$r="re a time";$s="teen-hundreds we$r for";say"The eigh$s rum.
The nine$s fun.
The two-thousands a$r to run
a civilized classroom."for b..z

Answer 3

GML (Game Maker Language), 169

a="teen-hundreds were a time for "b="The eigh"+a+"rum#The nine"+a+'fun#The two-thousands are a time to run#a civilized classroom#"c=b+b+b+b+b;d=c+c+c+c+c;show_message(d)

Answer 4

LATEX 239 226

The byte count does not include the \documentclass command nor any \usepackage commands. I would argue both count as using external packages, as the former includes definitions in an external .cls file, and usepackage is practically synonymous with an include statement. Output is a pdf file containing the 100 lines with no other text, formatted appropriately. Try it at writelatex.com!

\begin{document}\newcounter=\def\_{re a time }\def\-{een-hundreds we\_}\StrLen\-[\b]\forloop=\parindent{\value=<\b}{The eight\-for rum.\\The ninet\-for fun.\\The two-thousands a\_to run\\a civilized classroom.\\}\end{document}

Ungolfed:

\documentclass{letter}

\usepackage{forloop}
\usepackage{parskip}
\usepackage{xstring}
\usepackage{nopageno}

\begin{document}

\newcounter=

\def\_{re a time }
\def\-{een-hundreds we\_}

\StrLen\-[\b]

\forloop=\parindent{\value=<\b}{

    The eight\-for rum.\\
    The ninet\-for fun.\\
    The two-thousands a\_to run\\
    a civilized classroom.\\

}

\end{document}

Edit: New and improved. Also made link go to read-only version of code. Thank you Dennis!

Answer 5

TeX - 169

\def\s{teen-hundreds were a time for }\def\p{The eigh\s rum.

nine\s fun.

The two-thousands are a time to run

a civilized classroom.

}\def\m{\p\p\p\p\p}\m\m\m\m\m\bye

Note that the blank lines are intentional and actually required for the output to be properly formatted.

Answer 6

Golfscript - 139 134

'TeighYrum.TnineYfun.Ttwo-thousands aRto run
a civilized classroom.''#
'{-}**'Y'/'teen-hundreds weRfor '*'T'/'
The '*'R'/'re a time '*

Teacher: Joshy * , are you hashtagging in class again? Two weeks detention! #howdoesthatfeel

* name preserved to protect idensity

EDIT: Found shorter code.

Answer 7

PHP - 157

$f='re a time';$r="teen-hundreds we$f for";echo str_repeat("The eigh$r rum.\nThe nine$r fun.\nThe two-thousands a$f to run\na civilized classroom.\n",aa^SU);

Answer 8

Perl - 152 146 bytes

$_="-hundreds were a time for";say"The eighteen$_ rum.\nThe nineteen$_ fun.\nThe two-thousands are a time to run\na civilized classroom.\n"x y///c

This makes use of perl's string repetition operator and exploits a substring of length 25.

Ungolfed version:

$_ = "-hundreds were a time for";
say "The eighteen$_ rum.\nThe nineteen$_ fun.\nThe two-thousands are a time to run\na civilized classroom.\n"x y///c

Answer 9

Common Lisp (165 bytes)

(format t"~v{~{The ~(~A~)~#[~;-thousands are~:;teen-hundreds were~] a time ~A
~}~:*~}"(+ #xA #xF)'((eigh"for rum."nine"for fun."two"to run
a civilized classroom.")))

Explanations

• 25 equals to 10 + 15, which is equivalent to A + F in base 16. Hence (+ #xA #xF).
• 25 is passed to the ~v{ ... ~} constructs, which iterates over arguments at most v times, where v is given as an argument of format
• ~:* rewinds current argument to the previous element in the argument list; inside the ~{...~} constructs, that practically means infinite loop. However, this infinite loop is bounded by ~v, ie. 25.
• ~#[<zero>~;<one>~;:<else>~] is a switch, based on the value of the remaining number of arguments in the list (due to the # modifier).
• ~(...~) downcases the contained text

Note: I could have used fewer characters by using ~R on 18, 19 and 2 (and using a litteral 25) but this is forbidden.

Answer 10

Brainfuck, 659 bytes

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

Try it online!

I found this using my own mediocre Brainfuck cruncher.

Answer 11

EXCEL, 168 Bytes

Decided to add this for fun. Instead of using the length() I decided to use character codes... If SUBSTITUTE wasn't such a long command, I could have joined in on the string compression too. I am drooling over C# which can use: 'Z'%'A'

Similar to the other Excel, but not using any row / column references.

Decided to add this for fun. Instead of using the length() I decided to use character codes... If SUBSTITUTE wasn't such a long function I could have joined in on the string compression too.

Similar to the other Excel, but not using any row / column references.

=REPT("The eighteen-hundreds were a time for rum. 
The nineteen-hundreds were a time for fun. 
The two-thousands are a time to
run a civilized classroom. ",ARABIC("XXV"))

Answer 12

Vyxal, 95 bytes

`λƛ e⋏ṫ⟑⌈-←¾ λ□ a λṙ λ⟑ ≥⁋.
λƛ ∵‹⟑⌈-←¾ λ□ a λṙ λ⟑ ×ė.
λƛ ƛ»-ʁḢ λ½ a λṙ to ÷Ḣ
a ↔Ŀized τ⟇.
`₁½½*

Try it Online!

`...`     # Dictionary compressed string
     ₁½½  # 100 / 2 / 2 = 25
        * # That many times

Answer 13

C# (193)(189)

(Executable in LINQPad)

Golfed:

void Main(){for(int i='!';i++<':';)"The eighteen-hundreds were a time for rum.\nThe nineteen-hundreds were a time for fun.\nThe two-thousands are a time to run\na civilized classroom.".Dump();}

Ungolfed:

void Main()
{
    for(int i='!';i++<':';)
        "The eighteen-hundreds were a time for rum.\nThe nineteen-hundreds were a time for fun.\nThe two-thousands are a time to run\na civilized classroom.".Dump();
}

After update:

void Main(){var x="teen-hundreds were a time for ";for(int i='!';i++<':';)"The eigh_rum.\nThe nine_fun.\nThe two-thousands are a time to run\na civilized classroom.".Replace("_",x).Dump();}

Ungolfed:

void Main()
{
    var x="teen-hundreds were a time for ";

    for(int i='!';i++<':';)
        "The eigh_rum.\nThe nine_fun.\nThe two-thousands are a time to run\na civilized classroom.".Replace("_",x).Dump();}

Answer 14

Java 247 229 225

Not counting package and import statements

class A{public static void main(String[] a){String s="teen-hundreds were a time for "; for(int i='a';i++<'z';)out.print("The eigh"+s+"rum.\nThe nine"+s+"fun.\nThe two-thousands are a time to run\na civilized classroom.\n");}}

Ungolfed

    package a;
    import static java.lang.System.*;
    class A{
        public static void main(String[] a){
            String s="teen-hundreds were a time for "; 
            for(int i='a';i++<'z';)
            out.print("The eigh"+s+"rum.\nThe nine"+s+"fun.\nThe two-thousands are a time to run\na civilized classroom.\n");
        }
    }

Answer 15

Delphi (229 227 224/238)

Not great but still fun.
Repeats for each char in set ['B'..'Z'].

This is a procedure so use clauses aren't included. You will need the unit IdGlobal for this to work. Including the unit it will be 238.

procedure W;var C:Char;begin for C in['B'..'Z']do writeln(StringsReplace('%eigh^+for rum.*%nine^+for fun.*%two-thousands are+to run*a civilized classroom.',['%','^','*','+'],['The ','teen-hundreds were',^J,' a time ']));end;

Ungolfed

procedure W;
var C:Char;
begin
  for C in['B'..'Z']do
    writeln(StringsReplace('%eigh^+for rum.*%nine^+for fun.*%two-thousands are+to run*a civilized classroom.',['%','^','*','+'],['The ','teen-hundreds were',^J,' a time ']));
end;

Replace broken up

StringsReplace(
'%eigh^+for rum.*%nine^+for fun.*%two-thousands are+to run*a civilized classroom.', //source string
['%','^','*','+'], //Patterns to replace
['The ','teen-hundreds were',^J,' a time '])//Replace pattern with.

Answer 16

Java: 252 bytes

class M{public static void main(String a[]){String t="teen-hundreds were a";for(int i='!'-'!';i<'z'-'a';i++){System.out.println("The eigh"+t+" time for rum.\nThe nine"+t+" time for fun.\nThe two-thousands are a time to run\na civilized classroom.");}}}

ungolfed:

    class M {
    public static void main(String a[]) {
        String t = "teen-hundreds were a";
        for (int i = '!' - '!'; i < 'z' - 'a'; i++) {
            System.out
                    .println("The eigh"
                            + t
                            + " time for rum.\nThe nine"
                            + t
                            + " time for fun.\nThe two-thousands are a time to run\na civilized classroom.");
        }
    }
}

Answer 17

MATLAB 175 193

R2014a

Fun with fprintf. I hope I didn't miscount, first timer here.

a = 'a time ';b = 'teen-hundreds were %sfor';for i = length([]):length(b);fprintf(['The eigh',b,' rum.\nThe nine',b,' fun.\nThe two-thousands are %sto run\na civilized classroom.\n'],a,a,a);end

Ungolfed

a = 'a time ';
b = 'teen-hundreds were %sfor';
for i = length([]):length(b);
    fprintf(
        [
            'The eigh',
            b,
            ' rum.\nThe nine',
            b,
            ' fun.\nThe two-thousands are %sto run\na civilized classroom.\n'
        ],
        a,
        a,
        a
    );
end

Note that fprintf prints to MATLAB's console by default, unless a valid file identifier is supplied as the first argument. The character sequence %1$s instructs fprintf to print the first argument after the format string as a string. In this case, the variable b needs to be 25 characters long, so using %s instead of %1$s actually costs a couple more characters overall, once all strings have been manipulated.

Edit: fixed to conform to rules. Lesson learned: don't post early morning.

Answer 18

Shell, 161

sed 's/x/xxxxx/g;s/x/The eigh#rum.\nThe nine#fun.\nThe two-thousands are a time to run\na civilized classroom.\n/g;s/#/teen-hundreds were a time for /g'<<<xxxxx

Answer 19

Haskell - 183

a#b="The "++a++"teen-hundreds were a time for "++b++".";
main=forM_['A'..'Y'](\_->forM["eigh"#"rum","nine"#"fun","The two-thousands are a time to run\na civilized classroom"]putStrLn)

Required imports:

import Control.Monad
import Data.Char
import Data.List

Answer 20

Rebol - 162 160

b: a:"teen-hundreds were a time"forall b[print reword{The eigh$X for rum.
The nine$X for fun.
The two-thousands are a time to run
a civilized classroom.}[X a]]

Answer 21

Groovy - 149

Golfed:

x="teen-hundreds were a time";print"""The eigh$x for rum.
The nine$x for fun.
The two-thousands are a time to run
a civilized classroom.
"""*x.size()  

Answer 22

Cobra - 194

class P
    def main
        print ('[n="\nThe "]eigh'+(p='teen-hundereds we[m="re a time "]for ')+'rum.[n]nine[p]fun.[n]two-thousands a[m]to run\na civilized classroom.\n').repeat(c'S'to int-c':'to int)

Answer 23

Haskell (210 192 chars)

My code is fairly simple:

import Data.Char
i x y="The "++x++"teen-hundreds were a time for "++y++".\n"
main=putStr.unlines.replicate(ord '\EM')$(i"eigh""rum"++i"nine""fun"++"The two-thousands are a time to run\na civilized classroom.")

Joins a 25x replicated list of the desired string and prints it. (\EM is ASCII 25)

Edit

Updated score to omit import and trailing newline from count.

Answer 24

PowerShell

Count = 203 199

$c,$d,$e,$f,$g,$h,$i,$j=("The,eigh, for ,rum.,nine,fun., to run, a time"-split",");$a="teen-hundreds were$j";[char[]]$a|%{"$c $d$a$e$f`n$c $g$a$e$h`n$c two-thousands are$j$i`na civilized classroom."}

Explanation

# Chop up this string of repeated words/phrases
$c,$d,$e,$f,$g,$h,$i,$j=("The,eigh, for ,rum.,nine,fun., to run, a time"-split",");

# Steal everyone else's idea to get 25 chars exactly
$a="teen-hundreds were$j";

# Cast to char array and pipe into foreach
[char[]]$a|%{...}

# Spell everything out
"$c $d$a$e$f`n$c $g$a$e$h`n$c two-thousands are$j$i`na civilized classroom."

Answer 25

Groovy : 167 chars

Inspired by jmm's answer.

a="teen-hundreds were a time for"
b="two-thousands are a time "
s="The eigh$a rum.\nThe nine$a fun.\nThe ${b}to run\na civilized classroom."
b.size().times{println s}

Answer 26

Ruby, 198 bytes

a='teen-hundreds were a time'
b='The eigh'
c='The nine'
d=' for'
e=' rum'
f=' fun'
a.length.times{puts b+a+d+e+"\n"+c+a+d+f+"\n The two-thousands were a time to run a \n civilized classroom"}

Answer 27

Scala - 159

val(f,h)=('z'-'a',"teen-hundreds were a time for")
print(s"""The eigh$h rum.
The nine$h fun.
The two-thousands are a time to run
a civilized classroom.
"""*f)

Answer 28

T-SQL - 177

Using the string from the other T-SQL answer here.

PRINT(REPLICATE(REPLACE('The eigh$rum.
The nine$fun.
The two-thousands are a time to run
a civilized classroom.','$','teen-hundreds were a time for '),ASCII('K')/LEN('AAA')))

Okay, this should properly follow the rules this time, silly me. I had almost completely forgotten about the super convenient REPLICATE function. ASCII('K') gives us 75, dividing that by LEN('AAA') which is 3 gives us the 25 we need. I could've used the character with the ASCII value 25, but having a control character seems like a bit of a cop out to me.

Answer 29

C99: 211

Doubt I'll be winning any prizes any time soon:

main(){char*s="The %steen-hundreds were %s for %s.\n",*t="a time",c='A';for(;c<'Z';++c){printf(s,"eigh",t,"rum");printf(s,"nine",t,"fun");printf("The two-thousands are %s to run\na civilized classroom.\n", t);}}

Answer 30

Perl 6, 147 bytes

my $t="teen-hundreds were a time for";say "The eigh$t rum.
The nine$t fun.
The two-thousands are a time to run
a civilized classroom." for 'a'..'y'

Try it online!