fork download 
  1. <?php
  2.  
  3. define('N',   0    );
  4. define('K',   0    );
  5. define('_',   '_'  );
  6. define('A',   'A'  );
  7. define('Lst', 'Lst');
  8. define('Rez', 'Rez');
  9. define('Cdr', 'Cdr');
  10. define('CdrRez', 'CdrRez');
  11. function fu             ($Lst,   $N,   $K, $Rez) {return '';}
  12. function remove_each_nth($Lst,   $N,   $Rez)     {return '';}
  13. function append         ($array, $Cdr, $Lst)     {return 0; }
  14. function prolog         ($a, $b, $c, $d, $e, $f) {}
  15. $foo = 1;
  16. $bar = 1;
  17. $baz = 0;
  18.                                                                                 prolog($foo?
  19. fu([], _, _, []).
  20. fu(Lst, N, 0, Rez) :-
  21.     append([_], Cdr, Lst),                                                      $bar?
  22.     fu(Cdr, N, N, Rez).
  23. fu(Lst, N, K, Rez) :-
  24.     append([A], Cdr, Lst),
  25.     $K1 = K - 1,
  26.     fu(Cdr, N, $K1, CdrRez),                                                    $baz?
  27.     append([A], CdrRez, Rez).
  28. remove_each_nth(Lst, N, Rez) :-
  29.     $N1 = N - 1,
  30.     fu(Lst, $N1, $N1, Rez).
  31.                                                                                 _);
  32.  
Success #stdin #stdout 0.02s 24608KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/F0Rau0
language:
PHP (php 7.3.5)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!