fork download
copy 
  1. Node:
  2.     value
  3.     next
  4.     init(v, n?):
  5.         dup
  6.         value = v
  7.         next = n
  8.     concat(n?):
  9.         next = n
  10.  
  11. f(n?, x):
  12.     if !n || x < n.value:
  13.         Node.init(x, n)
  14.     else:
  15.         n.concat(f(n.next, x))
  16.  
  17. merge(n1?, n2?):
  18.     if !n1:
  19.         n1 = n2
  20.     else:
  21.         if n2:
  22.             f(n1, n2.value)
  23.             merge(n1, n2.next)
Success #stdin #stdout #stderr 0.01s 31008KB
comments (?)
stdin
copy 
1
2
10
42
11
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: /home/gs65gs/prog:23:29: Syntax error: end_of_file_in_quasi_quotation
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/5x2cEu
language:
Prolog (swi 7.6.4)
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!