Korutyny -- strumienie

Prolog |

440 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

% strumienie.pl
 
main(N) :-
    drukowanie(S1),
    podwajanie(S2, S1),
    numlist(1, N, S2).
 
podwajanie(IN, OUT) :-
    freeze(IN,
           (   IN = [H | IN_]
           ->  H2 is 2 * H,
               OUT = [H2 | OUT_],
               podwajanie(IN_, OUT_)
           ;   OUT = [])).
 
drukowanie(IN) :-
    freeze(IN,
           (   IN = [H | IN_]
           ->  writeln(H),
               drukowanie(IN_)
           ;   true)).

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

text |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

Best t33n active cpx link daily updates!
 Copy and paste the link in a new browser tab and then hit enter!
 https://crazyporn.@xxx/members/157354/?asgtbndr=1&play=true&spon=adworld&zone=400
 Remove the @

text |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

Best t33n active cpx link daily updates!
 Copy and paste the link in a new browser tab and then hit enter!
 https://crazyporn.xxx/members/157354/?asgtbndr=1&play=true&spon=adworld&zone=400

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

Korutyny -- strumienie

Comments