1
2
3
4
5
6
7
8
9
declare
proc {Pascal N K}
        if {{N == 0} Or {N == K}}
                then 1
        else
                {Pascal N-1 K}+{Pascal N-1 K-1}
        end
end
 

1
2
3
4
5
6
7
8
9
declare
proc {Pascal N K}
        if N == 0 Or N == K
                then 1
        else
                {Pascal N-1 K}+{Pascal N-1 K-1}
        end
end
 

1
2
3
4
5
6
7
8
9
declare
proc {Pascal N K}
        if (N == 0) Or (N == K)
                then 1
        else
                {Pascal N-1 K}+{Pascal N-1 K-1}
        end
end
 

1
2
3
4
5
6
7
8
9
declare
proc {Pascal N K}
        if (N == 0) || (N == K)
                then 1
        else
                {Pascal N-1 K}+{Pascal N-1 K-1}
        end
end
 

1
2
3
4
5
6
7
8
9
proc {Pascal N K}
        if (N == 0) Or (N == K)
                then 1
        else
                {Pascal N-1 K}+{Pascal N-1 K-1}
        end
end
 
{Browse {Pascal 10 5}}

1
2
3
4
5
6
7
8
9
declare
fun {Factorial N}
        P = {NewCell 1}
        proc {Helper N}
                if ( N == 0 )
                then skip
                else
                        P := @P * N
                        {Helper N-1}
 ...

1
2
3
4
5
6
7
8
9
declare
fun {Factorial N}
        P = {NewCell 1}
        proc {Helper N}
                if ( N == 0 )
                then skip
                else
                        P := @P * N
                        {Helper N-1}
 ...

1
2
3
4
5
6
7
8
9
declare
fun {Factorial N}
        P = {NewCell 1}
        proc {Helper N}
                if ( N == 0 )
                then skip
                else
                        P := @P * N
                        {Helper N-1}
 ...

1
2
3
4
5
6
7
8
9
declare
fun {Pascal N K}
        R = {NewCell 1}
        proc {Helper N K}
                if(N==0)
                then R:=1
                else
                        if(N==K)
                        then R:=1
 ...

1
2
3
4
5
6
7
8
9
proc {Pascal N K}
        if (N == 0) || (N == K)
                then 1
        else
                {Pascal N-1 K}+{Pascal N-1 K-1}
        end
end
 
{Browse {Pascal 10 5}}

1
2
3
4
5
6
7
8
functor
import
   Application
   System
 
define
   {System.showInfo 'Hello World!'}
   {Application.exit 0}
 ...

1
{Browse 'oh kust fuck me'}

1
{Browse 'oh kust fuck me'}

1
2
3
4
5
6
7
8
9
functor
import
   Application
   System
 
define
   {System.showInfo 'Hello World!'}
   {Application.exit 0}
   {Show 'Hello World1'}
 ...

1
2
3
4
import
        Show
        
{Show 'Hello'}

1
2
3
4
5
6
7
8
9
functor
import
   Application
   System
   Show
 
define
   {System.showInfo 'Hello World!'}
   {Application.exit 0}
 ...

1
2
3
4
5
6
7
8
functor
import
   Application
   System
 
define
   {System.showInfo 'Hello World!'}
   {Application.exit 0}
 ...

1
2
3
4
5
6
7
8
9
functor
import
   Application
   System
 
define
   {Show 'Hello World'}
 
end

1
{Show 'Hello World'}

1
declare W H

1
2
3
4
5
6
7
8
declare
local A B in 
   A = 3
   proc {B}
      {Show A + 'Tinman'}
   end 
   {B 7}
end

1
2
3
4
5
6
7
declare
   A = 3
   proc {B}
      {Show A + 'Tinman'}
   end 
   {B 7}
end

1
2
3
4
5
6
7
8
functor
import
   Application
   System
 
define
        {Browse 'Hello World'}
   {Application.exit 0}
 ...

1
 

1
2
3
4
5
6
7
8
9
package m3u_pls;
import javax.swing.JOptionPane;
import javax.swing.JOptionPane.*;
import java.io.*;
import java.nio.file.Path;
import java.nio.file.Paths;
import java.nio.file.Files;
 
/**
 ...

1
2
3
4
5
6
7
8
functor
import
   Application
   System
 
define
   {System.showInfo 'Hello World!'}
   {Application.exit 0}
 ...

1
2
3
4
5
6
7
8
9
declare
proc {LoadFile FileName ?Data}
   F = {New Open.file init(name:FileName flags:[read])}
   D L
   fun {FilterData D}
      {Map D
       fun {$ Line}
          {FoldR {String.tokens Line 32}
           fun {$ El Tail}
 ...

1
2
3
4
5
6
7
8
9
declare fun {Silnia X}
           if X < 0 then raise 'ujemny argument' end
           elseif X == 1 then 1
           else X * {Silnia X-1}
           end
        end
 
declare fun {Zad2 N X}
           if N > 0 then {Zad2 (N-1) X} + {Pow ~1 N} * {Pow X N} / {Silnia N}
 ...

1
2
3
4
5
6
7
8
9
declare fun {Silnia X}
           if X < 0 then raise 'ujemny argument' end
           elseif X == 1 then 1
           else X * {Silnia X-1}
           end
        end
 
declare fun {Zad2 N X}
           if N > 0 then {Zad2 (N-1) X} + {Pow ~1 N} * {Pow X N} / {Silnia N}
 ...

1
2
3
4
5
6
7
8
9
declare fun {Silnia X}
           if X < 0 then raise 'ujemny argument' end
           elseif X == 1 then 1
           else X * {Silnia X-1}
           end
        end
 
declare fun {Zad2 N X}
           if N > 0 then {Zad2 (N-1) X} + {Pow ~1 N} * {Pow X N} / {Silnia N}
 ...