fork download
copy 
  1. a:-put(48),nl,b,c(0).
  2. b:-z,w(-,57).
  3. c(I):-nl,I=36;J is I+1,(I=19,b,c(J);I>19,z,c(J);I>8,z,(I mod 3=:=0,w(#,56);tab(56)),z,c(J);z,(I mod 2=:=0,tab(1),w('* ',5),put(42),tab(1);w(' *',5),tab(3)),(0=:=I mod 3,w(#,33);tab(33)),z,c(J)).
  4. z:-put(124).
  5. w(A,B):-writef('%r',[A,B]).
Success #stdin #stdout #stderr 0.02s 6204KB
comments (?)
stdin
copy 
a.
stdout
copy 
0 |--------------------------------------------------------- | * * * * * * #################################| | * * * * * | | * * * * * * | | * * * * * #################################| | * * * * * * | | * * * * * | | * * * * * * #################################| | * * * * * | | * * * * * * | |########################################################| | | | | |########################################################| | | | | |########################################################| | | | | |########################################################| |--------------------------------------------------------- | | | | | | | | | | | | | | | |
stderr
copy 
true EOF: halt
https://ideone.com/hDERz8
language:
Prolog (swi 7.6.4)
created:
10 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!