Bell numbers: Difference between revisions
Added Prolog Solution
(→{{header|Wren}}: Now uses 'fmt' module.) |
(Added Prolog Solution) |
||
Line 1,523:
(4140 5017 6097 7432 9089 11155 13744 17007 21147)
(21147 25287 30304 36401 43833 52922 64077 77821 94828 115975)
</pre>
=={{header|Prolog}}==
{{works with|SWI Prolog}}
<lang prolog>bell(N, Bell):-
bell(N, Bell, [], _).
bell(0, [[1]|T], T, [1]):-!.
bell(N, Bell, B, Row):-
N1 is N - 1,
bell(N1, Bell, [Row|B], Last),
next_row(Row, Last).
next_row([Last|Bell], Bell1):-
last(Bell1, Last),
next_row1(Last, Bell, Bell1).
next_row1(_, [], []):-!.
next_row1(X, [Y|Rest], [B|Bell]):-
Y is X + B,
next_row1(Y, Rest, Bell).
print_bell_numbers(_, 0):-!.
print_bell_numbers([[Number|_]|Bell], N):-
writef('%w\n', [Number]),
N1 is N - 1,
print_bell_numbers(Bell, N1).
print_bell_rows(_, 0):-!.
print_bell_rows([Row|Rows], N):-
print_bell_row(Row),
N1 is N - 1,
print_bell_rows(Rows, N1).
print_bell_row([Number]):-
!,
writef('%w\n', [Number]).
print_bell_row([Number|Numbers]):-
writef('%w ', [Number]),
print_bell_row(Numbers).
main:-
bell(49, Bell),
writef('First 15 Bell numbers:\n'),
print_bell_numbers(Bell, 15),
last(Bell, [Number|_]),
writef('\n50th Bell number: %w\n', [Number]),
writef('\nFirst 10 rows of Bell triangle:\n'),
print_bell_rows(Bell, 10).</lang>
{{out}}
<pre>
First 15 Bell numbers:
1
1
2
5
15
52
203
877
4140
21147
115975
678570
4213597
27644437
190899322
50th Bell number: 10726137154573358400342215518590002633917247281
First 10 rows of Bell triangle:
1
1 2
2 3 5
5 7 10 15
15 20 27 37 52
52 67 87 114 151 203
203 255 322 409 523 674 877
877 1080 1335 1657 2066 2589 3263 4140
4140 5017 6097 7432 9089 11155 13744 17007 21147
21147 25287 30304 36401 43833 52922 64077 77821 94828 115975
</pre>
| |||