The Twelve Days of Christmas: Difference between revisions

{{trans|Python}}

 

Two turtle doves

Three french hens

V n = L.index + 1

V g = reversed(gifts[0 .< n])

 

=={{header|8080 Assembly}}==

 

LF: equ 10

puts: equ 9 ; CP/M function to write a string to the console

two: db 'Two turtle doves and',CR,LF

one: db 'A partridge in a pear tree.',CR,LF

 

=={{header|8086 Assembly}}==

{{trans|8080 Assembly}}

 

LF: equ 13

puts: equ 9 ; MS-DOS syscall to print string

db CR,LF,'$'

.tab: dw .n1,.n2,.n3,.n4,.n5,.n6

 

=={{header|Action!}}==

BYTE RTCLOK=$14

frames==+RTCLOK

Wait(50)

OD

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/The_Twelve_Days_of_Christmas.png Screenshot from Atari 8-bit computer]

{{works with|Flash Player|Flash Player|10}}

{{works with|Adobe AIR|AIR|1.5}} (Although the code can work in Flash Player 9 by replacing the Vectors with Arrays)

import flash.display.Sprite;

}

 

=={{header|Ada}}==

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

 

end loop;

end Twelve_Days_Of_Christmas;

 

=={{header|ALGOL 68}}==

{{Works with|ALGOL 68 Genie}}

[]STRING labels = ("first", "second", "third", "fourth",

"fifth", "sixth", "seventh", "eighth",

print(newline)

OD

 

{{Out}}

=={{header|AppleScript}}==

===Iterative===

"Three French hens,", "Four calling birds,", ¬

"Five gold rings,", "Six geese a-laying,", ¬

end repeat

log ""

 

{{Out}}

Drawing on some functional primitives, and post-Yosemite AppleScript's ability to import Foundation classes:

 

 

property pstrGifts : "A partridge in a pear tree, Two turtle doves, Three French hens, " & ¬

((ca's NSString's stringWithString:(str))'s ¬

uppercaseStringWithLocale:(ca's NSLocale's currentLocale())) as text

 

{{Out}}

=={{header|Arturo}}==

 

"A partridge in a pear tree."

"Two turtle doves"

-> capitalize last g

print ""

 

{{out}}

 

=={{header|AutoHotkey}}==

lines := ["A partridge in a pear tree."

,"Two turtle doves and"

full:= full . top . "`n" . mid . ((A_Index<lines.MaxIndex())?"`n":"")

}

 

=={{header|AWK}}==

# syntax: GAWK -f THE_TWELVE_DAYS_OF_CHRISTMAS.AWK

BEGIN {

exit(0)

}

{{out}}

<pre>

 

=={{header|Batch File}}==

:: Batch File Implementation

 

echo(

)

 

=={{header|BASIC}}==

 

20 FOR I=1 TO 12: READ N(I): NEXT

30 FOR I=1 TO 12: READ V(I): NEXT

210 DATA "Ten lords a-leaping"

220 DATA "Eleven pipers piping"

 

=={{header|BASIC256}}==

 

dim gift$ = {"A partridge in a pear tree.","Two turtle doves and","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"}

next j

print

 

=={{header|BCPL}}==

 

let ordinal(n) =

$)

 

 

=={{header|Befunge}}==

This is essentially the same algorithm as [[Old_lady_swallowed_a_fly#Befunge|Old lady swallowed a fly]] - just a different set of phrases and a simpler song pattern.

>-#11#\0#50#< g2-:00p4v >\#%"O"/#::$#<3#$+g48*-v^\,+*+ 55!:*!!-"|":g+3<

^02_>#`>#< 2 5 3 1 0 \1-:#^\_^#:-1\+<00_@#:>#<$<

-swimming(seventh7|Eight maids a-milking'eighth5|Nine ladies dancing&ninth5|Ten

lords a-leaping&tenth6|Eleven pipers piping)eleventh:|Twelve drummers drumming

 

=={{header|Bracmat}}==

second

third

)

)

 

=={{header|C}}==

#include<stdio.h>

return 0;

 

=={{header|C sharp|C#}}==

 

public class TwelveDaysOfChristmas {

}

 

 

=={{header|C++}}==

#include <array>

#include <string>

 

return 0;

 

=={{header|Clojure}}==

{{trans|Raku}}

[numbers '(first second third fourth fifth sixth

seventh eighth ninth tenth eleventh twelfth)

(dorun (for [n (range d -1 -1)]

(println (nth gifts n))))))))

{{Out}}

<pre>On the first day of Christmas, my true love sent to me:

 

=={{header|CLU}}==

rep = null

start_up = proc ()

christmas$carol(stream$primary_output())

 

=={{header|COBOL}}==

{{works with|GNU Cobol|2.0}}

PROGRAM-ID. twelve-days-of-christmas.

 

END-PERFORM

.

 

=={{header|Common Lisp}}==

 

((gifts '("A partridge in a pear tree." "Two turtle doves, and"

"Three French hens," "Four calling birds,"

(format t "~a~%" (nth gift gifts)))

(format t "~%")))

 

{{Out}}

 

=={{header|Cowgol}}==

 

var ordinals: [uint8][] := {

print_nl();

verse := verse + 1;

 

=={{header|Crystal}}==

{{trans|Ruby}}

gifts = "A partridge in a pear tree

Two turtle doves and

gifts[0, i + 1].reverse.each &->puts(String)

puts

 

=={{header|D}}==

{{trans|Python}}

"A partridge in a pear tree.

Two turtle doves

(n > 0 ? " and\n" ~ g.back : g.back.capitalize), '\n');

}

 

=={{header|dc}}==

 

d [first] r :n

 

0 ll x

 

{{Out}}

 

=={{header|Dyalect}}==

"first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eighth", "ninth",

"tenth", "eleventh", "twelfth"

}

print()

 

=={{header|Eiffel}}==

class

APPLICATION

 

end

 

=={{header|Elena}}==

{{trans|C++}}

ELENA 5.0 :

public program()

console.printLine()

}

 

=={{header|Elixir}}==

A partridge in a pear tree

Two turtle doves and

Enum.take(gifts, i+1) |> Enum.reverse |> Enum.each(&IO.puts &1)

IO.puts ""

 

{{out}}

 

=={{header|Erlang}}==

-export([gifts_for_day/1]).

 

main(_) -> lists:map(fun(N) -> io:fwrite("~s~n~n", [gifts_for_day(N)]) end,

lists:seq(1,12)).

{{Out}}<pre>On the first day of Christmas, my true love sent to me:

A partridge in a pear tree.

 

=={{header|F Sharp|F#}}==

"And a partridge in a pear tree";

"Two turtle doves";

printf "\n"

 

=={{header|Factor}}==

IN: rosetta-code.twelve-days-of-christmas

 

: twelve-days-of-christmas ( -- ) 12 [1,b] [ verse ] each ;

 

{{out}}

<pre>

=={{header|Forth}}==

{{works with|GNU Forth}}

s" fifth" 2, s" sixth" 2, s" seventh" 2, s" eighth" 2,

s" ninth" 2, s" tenth" 2, s" eleventh" 2, s" twelfth" 2,

main

bye

 

{{Out}}

=={{header|Fortran}}==

{{works with|Fortran|FORTRAN|77}}

 

character days(12)*8

10 continue

end

 

{{Out}}

 

=={{header|FreeBASIC}}==

' compile with: fbc -s console

 

Print : 'Print "hit any key to end program"

Sleep

{{out}}

<pre> On the first day of Christmas

=={{header|Go}}==

[https://play.golang.org/p/dnDyx8ee_G Go Playground]

 

import (

}

}

 

=={{header|Groovy}}==

'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']

}

println()

 

=={{header|Haskell}}==

{{trans|F#}}

gifts =

[ "And a partridge in a pear tree!",

 

main :: IO ()

{{out}}

<pre style="font-size:80%">On the first day of Christmas my true love gave to me...

 

Works in both languages.

days := ["first","second","third","fourth","fifth","sixth","seventh",

"eighth","ninth","tenth","eleventh","twelveth"]

every write("\nOn the ",days[day := 1 to 12]," day of Christmas my true love gave to me:") do

every write(" ",gifts[day to 1 by -1])

 

=={{header|J}}==

 

days=: ;:'first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelfth'

makeVerses=: [: chgFirstVerse (firstline&.> days) ,&.> [: <@;@|.\ gifts"_

 

 

=={{header|Java}}==

 

final static String[] gifts = {

}

}

 

=={{header|JavaScript}}==

var days = [

'first', 'second', 'third', 'fourth', 'fifth', 'sixth', 'seventh', 'eighth', 'ninth',

song = verses.join('\n\n');

document.write(song);

 

 

Alternatively, in a functional style of JavaScript, we can define the ancient song "strPrepn the lstOrdinal[i] strUnit of strHoliday" as an expression, and return that expression in a human-legible and machine-parseable JSON string translation, for further analysis and processing :-)

 

(function (

strPrepn,

'On', 'Christmas', 'day', 'my true love', 'gave to', 'me'

), null, 2

 

Note that the Google Closure compiler's translation of this would be half the size, but rather less legible.

(It does make interesting suggestions though – the semi-colon segmentation of the verses below is a trick that might be worth remembering).

 

var c =

"first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelfth"

0 : 1)))]);

}, []);

 

Formatted JSON output (the expanded and Closure-compiled versions above both yield the same output).

 

[

"On the first day of Christmas",

//... etc.

 

 

=={{header|jq}}==

"seven", "eight", "nine", "ten", "eleven", "twelve"] as $cardinals

| [ "first", "second", "third", "fourth", "fifth", "sixth",

" " + $gifts[$j] + if $j > 0 then "," else "\n" end]

| join("\n"))

 

Run with <pre>jq -rnf programfile.jq</pre> to yield this result:

=={{header|Jsish}}==

Based on Javascript entry, almost identical, added unitTest.

"use strict";

 

And a partridge in a pear tree

=!EXPECTEND!=

 

{{out}}

 

=={{header|Julia}}==

 

function printlyrics()

end

 

 

{{out}}

=={{header|Kotlin}}==

{{trans|C#}}

first, second, third, fourth, fifth, sixth, seventh, eighth, ninth, tenth, eleventh, twelfth;

val header = "On the " + this + " day of Christmas, my true love sent to me\n\t"

 

Day.values().forEachIndexed { i, d -> println(d.header + gifts.slice(0..i).asReversed().joinToString("\n\t")) }

 

=={{header|Lambdatalk}}==

{def days

first second third fourth fifth sixth

Two turtle doves and

A partridge in a pear tree.

 

=={{header|Logo}}==

 

make "gifts [[And a partridge in a pear tree] [Two turtle doves] [Three French hens]

[Four calling birds] [Five gold rings] [Six geese a-laying]

]

]

 

{{Out}}

=={{header|LOLCODE}}==

{{works with|LCI 0.10}}

HAI 1.2

 

IM OUTTA YR Outer

 

{{Out}}

 

=={{header|Lua}}==

local days = {

'first', 'second', 'third', 'fourth', 'fifth', 'sixth', 'seventh', 'eighth', 'ninth',

 

print(table.concat(verses, '\n\n'))

 

=={{header|MAD}}==

 

THROUGH VERSE, FOR I=1, 1, I.G.12

VECTOR VALUES MT = $*$

END OF PROGRAM

 

=={{header|Maple}}==

"Eleven pipers piping", "Ten lords a-leaping",

"Nine ladies dancing", "Eight maids a-milking",

end do;

printf("\n");

{{out}}

<pre>

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

"seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth"};

giftsarray = {"And a partridge in a pear tree.", "Two turtle doves",

daysarray[[i]],

If[i == 1, "A partridge in a pear tree.",

{{out}}

<pre style="height:55ex;overflow:scroll">

 

=={{header|MiniScript}}==

"seventh","eigth","nineth","tenth","eleventh","twelfth"]

gifts = ["A partridge in a pear tree.","Two turtle doves, and",

print " ----------"

end for

{{out}}

<pre>

=={{header|Nim}}==

{{trans|Python}}

 

const

var g = reversed(Gifts[0..n])

echo "\nOn the ", day, " day of Christmas\nMy true love gave to me:\n",

 

{{out}}

=={{header|Objeck}}==

{{trans|C sharp|C#}}

class TwelveDaysOfChristmas {

function : Main(args : String[]) ~ Nil {

}

}

 

=={{header|PARI/GP}}==

gifts=["And 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"];

{

print(if(i==1,"\tA partridge in a pear tree.",Str("\t",gifts[1])))

)

{{out}}

<pre>On the first day of Christmas, my true love gave to me:

This should work with any modern Pascal implementation that has a '''string''' type, e.g. [[Free Pascal]].

 

 

const

writeln

end

{{Out}}

<pre>On the first day of Christmas, my true love sent to me:

Here's a version that works in ISO Standard Pascal, albeit with extraneous spaces in the output:

 

 

const

writeln

end

 

{{Out}}

 

=={{header|Perl}}==

 

my @days = qw{ first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelfth };

Three french hens

Two turtle doves

{{out}}

<pre>On the first day of Christmas,

 

=={{header|Phix}}==

<span style="color: #008080;">constant</span> <span style="color: #000000;">days</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">"first"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"second"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"third"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"fourth"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"fifth"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"sixth"</span><span style="color: #0000FF;">,</span>

<span style="color: #008000;">"seventh"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"eighth"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"ninth"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"tenth"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"eleventh"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"twelfth"</span><span style="color: #0000FF;">},</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

 

=={{header|Phixmonti}}==

 

( "A partridge in a pear tree."

swap

nl

 

=={{header|PHP}}==

<?php

 

 

?>

 

Or using recursion:

 

 

$gifts = array(

twelve_days( array_reverse( $gifts, true ) );

 

{{Out}}

<pre style="font-size:84%;height:55ex">

=={{header|Picat}}==

===List comprehension===

Days = "first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelfth".split(" "),

Gifts =

Day, slice(Gifts,1,D).reverse().join("\n")) : {Day,D} in zip(Days,1..length(Days))]

.join("\n")),

 

===Definite clause grammars (DCG)===

lyrics(Ls,[]),

println(Ls.flatten),

day(tenth) --> "Ten lords a-leaping".

day(eleventh) --> "Eleven pipers piping".

 

=={{header|PicoLisp}}==

first second third fourth fifth sixth

seventh eight ninth tenth eleventh twelfth )

(prinl) )

 

 

=={{header|Pike}}==

array(string) days = ({"first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth"});

array(string) gifts = ({"A partridge in a pear tree.", "Two turtle doves and", "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"});

}

return 0;

{{out}}

<pre>On the first day of Christmas

 

=={{header|PowerShell}}==

1 = "first";

2 = "second";

}

""

 

{{out}}

 

=={{header|Prolog}}==

day(2, 'second').

day(3, 'third').

writeLoop(N) :- Day is 13 - N, writeGifts(Day), M is N - 1, writeLoop(M).

 

 

{{Out}}

 

=={{header|PureBasic}}==

days$ = ~"first\nsecond\nthird\nfourth\nfifth\nsixth\nseventh\neighth\nninth\ntenth\neleventh\ntwelfth\n"

gifts$= ~"Twelve drummers drumming,\nEleven pipers piping,\nTen lords a-leaping,\nNine ladies dancing,\n"+

Next I

Input()

{{out}}

<pre>On the first day of Christmas, my true love sent to me:

 

=={{header|Python}}==

A partridge in a pear tree.

Two turtle doves

print(('\nOn the %s day of Christmas\nMy true love gave to me:\n' % day) +

'\n'.join(g[:-1]) +

 

{{out}}

 

=={{header|q}}==

days:" "vs"first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelfth"

 

 

1 "\n"sv lyric; // print

{{out}}

<pre>On the first day of Christmas

=={{header|Quackery}}==

 

$ "first" $ "second" $ "third" $ "fourth"

$ "fifth" $ "sixth" $ "seventh" $ "eighth"

[ 12 times [ i^ verse ] ] is song ( --> )

 

{{out}}

 

=={{header|R}}==

gifts <- c("A partridge in a pear tree.", "Two turtle doves and", "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")

days <- c("first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth")

cat("My true love gave to me:\n")

cat(paste(gifts[i:1], collapse = "\n"), "\n\n")

{{out}}

<pre>

* British Variant: capitalises '''FIVE GO-OLD RINGS''' since it needs to be sung at top volume. If you want to change this back; the source is there. But I guarantee you won't have as much fun singing it.

 

(define (ordinal-text d)

(vector-ref

#:when (on-the... day)

(prezzy-line (in-range day 0 -1)))

 

{{out}}

=={{header|Raku}}==

(formerly Perl 6)

 

my @gifts = lines q:to/END/;

nth($d);

say @gifts[$_] for $d ... 0;

{{out}}

<pre>On the first day of Christmas, my true love gave to me:

::* &nbsp; capitalized &nbsp; '''True Love''' &nbsp; as it (may) refer to a deity

::* &nbsp; added indentation to make verses resemble song lyrics

ordD= 'first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelfth'

pad= left('', 20) /*used for indenting the shown verses. */

end /*j*/

say /*add a blank line between the verses. */

{{out|output|:}}

 

 

=={{header|Ring}}==

# Project : The Twelve Days of Christmas

 

next

 

Output:

<pre>

 

=={{header|Ruby}}==

Two turtle doves and

Three french hens

puts gifts[0, i+1].reverse

puts

 

=={{header|Run BASIC}}==

A partridge in a pear tree.,

Two turtle doves,

print

next i

<pre>On the first day of Christmas

My true love gave to me:

=={{header|Rust}}==

[https://play.rust-lang.org/?gist=773d4af97e7c4b374574a3e1656b5029&version=stable&backtrace=0 Rust Playground]

let days = ["first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eighth",

"ninth", "tenth", "eleventh", "twelfth"];

println!()

}

 

=={{header|Scala}}==

"A partridge in a pear tree.",

"Two turtle doves and",

 

(0 until 12).map(giftsForDay andThen println)

 

{{Out}}

=={{header|Scheme}}==

Without Common Lisp's <tt>format</tt>, we sadly have to hard-code the list of ordinals.

(define (take lst n)

(if (or (null? lst) (<= n 0))

(newline)))

 

 

{{Out}}

 

=={{header|Seed7}}==

 

const proc: main is func

end for;

end for;

 

{{out}}

=={{header|Self}}==

Nicely factored:

parent* = traits oddball.

 

 

|) value printLine

 

=={{header|SenseTalk}}==

"partridge in a pear tree.",

"turtle doves and",

end repeat

put ""

 

{{out}}

=={{header|Sidef}}==

{{trans|Raku}}

 

var gifts = <<'EOT'.lines;

say gifts[i];

}

 

{{out}}

=={{header|Simula}}==

{{works with|GNU Cim}}

Text Array days(1:12), gifts(1:12);

Integer day, gift;

End

End

 

{{Out}}

=={{header|Smalltalk}}==

{{works with|GNU Smalltalk}}

Ordinals := #('first' 'second' 'third' 'fourth' 'fifth' 'sixth'

'seventh' 'eighth' 'ninth' 'tenth' 'eleventh' 'twelfth').

1 to: 12 do: [:i |

Transcript show: (TwelveDays giftsFor: i); cr.

 

{{Out}}

 

=={{header|Smart BASIC}}==

dim d$(12),x$(15)!s=15

for t=0 to 11!read d$(t)!next t

print x$(0)&d$(u)&x$(1)&chr$(10)&x$(2)

for t=s to 14!print x$(t)!next t

<pre>On the first day of Christmas

My true love gave to me:

=={{header|Snobol}}==

{{Works with|CSNOBOL4}}

DAYS<1> = 'first'

DAYS<2> = 'second'

NEXT OUTPUT = ''

DAY = DAY + 1 :(OUTER)

 

{{Out}}

Demonstration of Oracle 12c "with" clause enhancement.

 

with

function nl ( s in varchar2 )

connect by level <= 12

/

output:

<pre>

=={{header|Swift}}==

{{works with|Swift|2.1}}

"Three French hens", "Four calling birds",

"Five gold rings", "Six geese a-laying",

for day in 1...12 {

print(giftsForDay(day))

 

{{out}}

 

=={{header|Tailspin}}==

def ordinal: ['first', 'second', 'third', 'fourth', 'fifth', 'sixth', 'seventh', 'eighth', 'ninth', 'tenth', 'eleventh', 'twelfth'];

def gift: [

' !

\singVerse) -> !OUT::write

{{out}}

<pre>

</pre>

=={{header|Terraform}}==

days = [ "first", "second", "third", "fourth", "fifth", "sixth",

"seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth" ]

output "lyrics" {

value = join("\n\n",[for t in data.template_file.days: t.rendered])

 

 

=={{header|Tcl}}==

{{works with|Tcl|8.6}}

first second third fourth fifth sixth

seventh eighth ninth tenth eleventh twelfth

format "On the $day day of Christmas,\nMy true love gave to me:\n%s" \

[join [lrange $gifts end-[incr n] end] \n]

{{out}}

<pre style="height:55ex;overflow:scroll">

{{works with|QBasic|1.1}}

{{works with|QuickBasic|4.5}}

DATA "seventh","eighth","ninth","tenth","eleventh","twelfth"

DATA "A partridge in a pear tree."

PRINT

NEXT i

 

=={{header|uBasic/4tH}}==

 

Proc _DataDays ' put data on the stack

Push Dup("Eleven pipers piping")

Push Dup("Twelve drummers drumming")

 

=={{header|UNIX Shell}}==

{{works with|Bourne Again SHell}}

{{works with|Korn Shell|93}}

ordinals=(first second third fourth fifth sixth

seventh eighth ninth tenth eleventh twelfth)

for (( day=0; day < 12; ++day )); do

echo_gifts $day

 

The above will also work in zsh if the index range is changed from 0..11 to 1..12.

(requires the '''seq''' command)

 

ordinal() {

n=$1

for day in `seq 0 11`; do

echo_gifts $day

 

{{Out}}

 

=={{header|VBA}}==

Dim i As Integer, c As Integer, j As Integer, strReturn() As String

Dim s, n

strReturn(UBound(strReturn)) = Replace(strReturn(UBound(strReturn)), "and" & vbCrLf & "A", vbCrLf & "And a")

Debug.Print Join(strReturn, vbCrLf)

{{out}}

<pre>On the first day of Christmas,

 

=={{header|VBScript}}==

"seventh","eight","ninth","tenth","eleventh","twelfth")

End If

WScript.StdOut.WriteBlankLines(2)

 

 

This example uses calculated call targets.

Note that in the gift subroutines, the execution falls through all the following subroutines and returns only after the gift 1 routine.

Num_Str(#1, 9, LEFT)

IT("On the ")

:gift 2: IT("Two turtle doves, and") IN

:gift 1: IT("A partridge in a pear tree.") IN

 

=={{header|Vim Script}}==

{{trans|Raku}}

let b:days=["first", "second", "third", "fourth", "fifth", "sixth",

\ "seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth"]

endwhile

let b:day = b:day + 1

 

{{Out}}

'''Compiler:''' Roslyn Visual Basic (language version >= 14, e.g. with Visual Studio 2015)

 

Sub Main()

Dim days = New String(11) {"first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth"}

Next

End Sub

 

=={{header|Wren}}==

"first", "second", "third", "fourth", "fifth", "sixth",

"seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth"

for (j in i..0) System.print(gifts[j])

System.print()

 

=={{header|XPL0}}==

[Day:= [0, "first", "second", "third", "forth", "fifth", "sixth",

"seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth"];

CrLf(0);

];

 

{{out}}

 

=={{header|Yabasic}}==

for i = 1 to 12: read day$(i): next i

for i = 1 to 12: read gift$(i): next i

data "Ten lords a-leaping"

data "Eleven pipers piping"

 

 

 

 

PrintChar equ &BB5A ;print accumulator to screen

 

 

Song_NewLine:

 

=={{header|zkl}}==

{{trans|Python}}

#<<<

"A beer, in a tree.; Two turtlenecks; Three french toast;

println("On the %s day of Christmas\nMy true love gave to me:\n".fmt(day),

g[0,-1].concat("\n"), (n>1) and " and\n" or "", g[-1], "\n");

 

{{out}}