RosettaCodeData/Task/Pascals-triangle/D/pascals-triangle-2.d

12 lines
272 B
D
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
import std.stdio, std.algorithm, std.range;
2013-10-27 22:24:23 +00:00
auto pascal() pure nothrow {
2013-06-05 21:47:54 +00:00
return [1].recurrence!q{ zip(a[n - 1] ~ 0, 0 ~ a[n - 1])
2013-10-27 22:24:23 +00:00
.map!q{ a[0] + a[1] }
2013-06-05 21:47:54 +00:00
.array };
2013-04-10 23:57:08 -07:00
}
void main() {
2013-06-05 21:47:54 +00:00
pascal.take(5).writeln;
2013-04-10 23:57:08 -07:00
}