(20 & 21th century) |
m |
||
Line 19: | Line 19: | ||
|list12=[[2010]]{{*}}[[2011]]{{*}}[[2012]]{{*}}[[2013]]{{*}}[[2014]]{{*}}[[2015]]{{*}}[[2016]]{{*}}[[2017]]{{*}}[[2018]]{{*}}[[2019]] | |list12=[[2010]]{{*}}[[2011]]{{*}}[[2012]]{{*}}[[2013]]{{*}}[[2014]]{{*}}[[2015]]{{*}}[[2016]]{{*}}[[2017]]{{*}}[[2018]]{{*}}[[2019]] | ||
}} | }} | ||
+ | |||
+ | <noinclude> | ||
+ | Generated using this Mathematica code: | ||
+ | <pre> | ||
+ | StringJoin @@ | ||
+ | Table[If[Mod[i, 10] == 9, | ||
+ | "[[" <> ToString[i] <> "]]\n |list=" <> | ||
+ | ToString[Evaluate[Round[(i - 1900)/10.] + 1]], | ||
+ | "[[" <> ToString[i] <> "]]{{*}}"], {i, 1900, 2000}] | ||
+ | </pre> | ||
+ | </noinclude> |
|
Generated using this Mathematica code:
StringJoin @@ Table[If[Mod[i, 10] == 9, "[[" <> ToString[i] <> "]]\n |list=" <> ToString[Evaluate[Round[(i - 1900)/10.] + 1]], "[[" <> ToString[i] <> "]]{{*}}"], {i, 1900, 2000}]