fork(1) download 
  1. wrs(S):-put_char('\"'), wrsi(S).
  2. wrsi([C|S]):-put_char(C), wrsi(S).
  3. wrsi([]):-put_char('\"').
  4.  
  5. wrl(S):-put_char('['), wrli(S), put_char(']').
  6. wrli([C|[O|S]]):-wrs(C), put_char(','), wrli([O|S]).
  7. wrli([C]):-wrs(C).
  8.  
  9. :- wrl(["dog", "cat", "canary"]).
Success #stdin #stdout #stderr 0.02s 6204KB
comments (?)
stdin 
Standard input is empty
stdout 
["dog","cat","canary"]
stderr
https://ideone.com/L4vIKs
language:
Prolog (swi 7.6.4)
created:
13 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!