1
print "Kode Multus"

1
print "Kode Multus"

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
2
3
4
5
6
7
8
9
                        
                                 
                          
                         
                 
             
                           
                          
                                 
 ...

1
2
3
 
Как использовать ideone?
Choose a programming language, enter your source code and in

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
int main(){
 
int Yoy;
Yoy = (5);
while(Yoy < 5.01){
cout<< Yoy <<endl;
Yoy++;
 ...

1
(defun factor (n i)(if (= i 0)()if(= (rem n i))(cons i (car (factor n (- i 1) ) ))(factor n (- i 1))))

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
(+ 1 2 3 4 5)

1
(car  (1 2 3 4 5))

1
2
3
4
5
6
7
8
9
void main()
{
int a[][4]= 
{7,2,6,1,
9,3,4,5,
10,12,8,10,
1,2,3,8
};
int i,j,p,r,c;
 ...

1
2
3
4
5
6
7
8
9
void main()
{
int a[][4]= 
{7,2,6,1,
9,3,4,5,
10,12,8,10,
1,2,3,8
};
int i,j,p,r,c;
 ...

1
2
3
4
5
6
7
8
9
void main()
{
int a[][4]= 
{7,2,6,1,
9,3,4,5,
10,12,8,10,
1,2,3,8
};
int i,j,p,r,c;
 ...

1
(car  '(1 2 3 4 5))

1
(car  quote(1 2 3 4 5))

1
(car  quote( 1 2 3 4 5))

1
(car '( 1 2 3 4 5))

1
2
3
4
5
6
(defun gcd (a b)
        (if (zerop b) a (gcd b (mod a b))))
        
(defun lcd (a b) (/ (* a b) (gcd a b)))
 
(print (reduce #'lcd (loop for i from 1 to 20 collect i)))

1
2
3
4
5
6
(defun gcd (a b)
        (if (zerop b) a (gcd b (mod a b))))
 
(defun lcd (a b) (/ (* a b) (gcd a b)))
 
(print (reduce #'lcd (loop for i from 1 to 20 collect i)))

1
2
@ 0,0 say "hello world"
inkey(0)

1
2
@ 0,0 say "hello world"
inkey(0)

1
2
3
4
5
6
7
8
9
Lemon os
 
New//int
O.s Lemon|:Boot
//gif>>lemon:
0
:Run/open/con
Nstream;/gif>>
0
 ...

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
2
3
4
5
6
7
8
9
(deftemplate apilado
(slot encima (type SYMBOL))
(slot debajo (type SYMBOL))
)
(deftemplate objetivo
(slot encima (type SYMBOL))
(slot debajo (type SYMBOL))
)
(deffacts bloques
 ...

1
2
3
4
5
6
7
8
9
#
(defun n-words-with-width-less-than (words fontsize length &optional (accum nil))
#
  "The first N words with a combined fontwidth (including spaces) less than the width required."
#
  (if (<= (* fontsize
#
             (+ (length accum) ;;Add the spaces.
#
 ...

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
2
3
4
5
6
7
8
9
;;Solution to facebook hacker cup Billboard brain teaser.
;;author: sea <http://sea4ever.users.sourceforge.net>
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
 
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ...

1
2
3
4
5
6
7
8
9
;;Solution to facebook hacker cup Billboard brain teaser.
;;author: sea <http://sea4ever.users.sourceforge.net>
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
 
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ...

1
2
3
4
5
6
7
8
9
(defun n-words-with-width-less-than (words fontsize length &optional (accum nil))
  "The first N words with a combined fontwidth (including spaces) less than the width required."
  (if (<= (* fontsize
             (+ (length accum) ;;Add the spaces.
                -1 ;;Minus one, since the last word needs no space after it.
                (apply #'+ (mapcar #'length accum))));;Total width of the words
          length)
      (if (null words) accum
          (n-words-with-width-less-than (cdr words) fontsize length (cons (car words) accum)))
 ...