fork download
copy 
  1. square(_, L) :- L =:= 0.
  2. square(S, L) :- 
  3.     L =\= 0, !,
  4.     writeln(S), rot(S, R), square(R, (L - 1)).
  5.  
  6. rot(S, Sr) :-
  7.     string_chars(S, Cs),
  8.     append([C], Ch, Cs),
  9.     append(Ch, [C], Cr),
  10.     string_chars(Sr, Cr).
  11.  
  12. yoba(S) :- string_length(S, L), square(S, L).
  13.  
  14. main :- yoba("АРГЕНТИНА МАНИТ НЕГРА"), halt.
  15.  
  16. :- main.
  17.  
Success #stdin #stdout 0.04s 7720KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
АРГЕНТИНА МАНИТ НЕГРА
РГЕНТИНА МАНИТ НЕГРАА
ГЕНТИНА МАНИТ НЕГРААР
ЕНТИНА МАНИТ НЕГРААРГ
НТИНА МАНИТ НЕГРААРГЕ
ТИНА МАНИТ НЕГРААРГЕН
ИНА МАНИТ НЕГРААРГЕНТ
НА МАНИТ НЕГРААРГЕНТИ
А МАНИТ НЕГРААРГЕНТИН
 МАНИТ НЕГРААРГЕНТИНА
МАНИТ НЕГРААРГЕНТИНА 
АНИТ НЕГРААРГЕНТИНА М
НИТ НЕГРААРГЕНТИНА МА
ИТ НЕГРААРГЕНТИНА МАН
Т НЕГРААРГЕНТИНА МАНИ
 НЕГРААРГЕНТИНА МАНИТ
НЕГРААРГЕНТИНА МАНИТ 
ЕГРААРГЕНТИНА МАНИТ Н
ГРААРГЕНТИНА МАНИТ НЕ
РААРГЕНТИНА МАНИТ НЕГ
ААРГЕНТИНА МАНИТ НЕГР
https://ideone.com/ukyikr
language:
Prolog (swi 7.6.4)
created:
9 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!