1
2
3
4
5
use io;
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
using io;
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
"Enter a string: " write
readln
"Enter a number: " write
readln string>number

1
2
3
4
5
6
7
8
9
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
: rot13-demo ( -- )
    "Please enter a string:" print flush
    readln [
        "Your string: " write dup print
    ] when* ;
 
MAIN: rot13-demo
 ...

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
: rot13-demo ( -- )
    "Please enter a string:" print flush
    readln [
        "Your string: " write dup print
    ] when* ;
 ...

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
 
: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
: rot-letter ( ch -- ch )
    {
 ...

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
 
: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
: rot-letter ( ch -- ch )
    {
 ...

1
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363 E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print "\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80).";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;

1
print %"racecar" || "racecar"% tnirp

1
096*3+2*86*2*1+0^4+0^3-822**85*3*1+55*4*0^0^1+3^5-P01^:8*g

1
2
USING: math prettyprint ;
40 2 + .

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
 
: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
: rot-letter ( ch -- ch )
    {
 ...

1
2
3
def _ _;(65..90)===_.ord()?_.ord()-65:_.ord()-71;end;_=DATA.read.scan(/../).map{|_|_.scan /./}.map{|__,_|v=52*_(__)+_(_)}.map{|_|_<(1<<7)?_.chr():_};puts eval's=128;d=Hash[Array.new(s){|_|[_.chr]*2}];w=r=_.shift;for k in _;if d.has_key? k;e=d[k];else;e=w+w[0];end;r+=e;d[s]=w+e[0];s+=1;w=e;end;eval("def f(x);#{r};end;f(gets)?true:false")'
__END__
COBJAlCPCTAwBaBkBmCGCEBTBmBABiBTBtCNBVBgBZAxBRBRBfBgCICCBbCdCfChBTBeAgBBAyBFAyBwBFAxByDMBABtAzBxBwBAAgBxBuAxBABFBCBtBvCVBHBwBxByAgBvAgByAsAmCLBHAtBKCTByBnBpBHCLDwDfBxCGBwDgDiAgCGDmDoDqDsAoBrApDuBnDzBrBpBpEBEDBHBtCECBBtCLBGBrBGBxCOEZEFDjCMEHDoBuBHCGBKAwBLBvAoCMAoCWAtCGEoApFCBGDsCTEWEEBrBJCGAoEMEOCTBrAiAjFQCVAiCVEPCUBrFZAgBrCVBnAnCFBxCMCACHBwENBrFhFjFlBrEOAuCIBtCKBtFpBxCKDzEzAwAtCWAwBpBnEMBtAsBuEPExBuAuAqBuBIBJEsEPBtBJBuEsBLGFBtAgBGEzBtFeDxBtBHFeBAAsAtBBEUAnBpAuCMCHBrCLAuCLCMCKCBCIBHCRBJBAAyAgBtEDAgBuBJGKGMEPCKBJAwBHGPGRGTGVAwHTHQBKAoGLGNCTHYGSGUGWCTGYGaEtGdGfGhGjEYGmBnCKAsBtEVDwBHCKHZHmAwFeAxBIBIFNHfBrAsCJGOAoCJGRCJIHEPFKCJGbGFBrHtAtFdIDBrHxGFAwGpGGBpFDIKBICRAvINENAsCHEPCQHVHXAoCHGRCHIXCTIzHRHiHkHaHnHpIbCWGeGgAtGiIDGlFeCQAsETHvCQJEIHFeAyAsEzAoIqAzApIoDxCMBJBrAnCLBxCEByAnEkAgCMAuCSFcDrIOIYGvGxCLJjILFOIwIyJAExJDAqJFHbKOKMIxHjJCJdKUFQBJCHJPIdJSIgDxIiJXJZICDxJcKSJeBnAxGpIOKNKYKRKTHnFKKeHrCWKgEzKiBHKkKsAsBAEUApFeETBHECEEDhElAuDwBJAgCPAsCAAsBvLIBJBnCPAuBvCEEcCLKjJqAuCFBtCIAgAmBGGwGyLfFOEPFSCTENAuCHCKBwArEyAwAmIqAoAyArJlApApLjCACKCVFTAnAnMXFQGJGGAuAuGDEVFWBnBrGJKvKXIzHWKQKaHnJIMnISKyJGLBKfIeLHLJJYJaIDKpKzIIMmIvMoKPKZKqKbMuNLMwMsHcKcLCGcLENBHvNDKmJbNUFeAwCQHJAsAxBpAsGHEULIAoMCFdAgFTCPDfCBDjAhFTKCNhAyBvBxBxBvBDAwBwCVBrOBAgNhAzBBBvDOBBBwBvOLBLAoBGFTCAFXBHOONhBtDdBFOSCVObCTOdOnDeLREXLSAiApOsEEHHCRAmAmCMKEAoGOBnKALkLmAsFFBMBpBJBGPJCLCLHvFGCMGJAtCMPLETPPCGBxNwIDCRLWPOAoCDHeCTPYGjAuCBCGLkCNDhBwFoFlCNCEBxGCAtGHPaBLPLBvBtCMBvCAOwBrBLBGAhBwCHBHCBHeAoBwHSJHNNGQHlNQQWQYJKAoQcJMNVBwGZJPBwIeOLIDEEKlBwKnBHKpQkFeBuGMGuPRDqKALXAgCDPaAhPLFjCKCHCPHXPiBJAoCBPLCGRLBGAqOwBxCZAlAlHLHNCHHQDwRgQpLUJzAuCAENQNAuBxDdCACTCUCJAsBxCUJtJvRSAoBxIQAsAlPHGxFTCJCVGuLxCLCRCFLOOxRRRqCTCBFFAlBKBKAsEdCBOeCRGJAlBISeBGAvPOBGCLCIEaPDPWRVEeSqRFSkMZPaSqCBLRFKFGAtEADwPqPsCEPuDTPxBwPzQBBnBMBrKHBrCBKjAhQQCNChQBKJTXCLCBCSRcHVBAAwArEMQgKOMqQiIGQeTrQZJLJGQmHqNYQpJSQrDxQtBnJYQvNeQdEsFeKWNTNPLAKdNAKhNbHxKtAyNmGFURKxNUIYUVLDLFIfUYJfNkEUPBEwBnBxIPSyPPLrCIApPBFKCWAoFNAvAvMTIdFNDwVHQiAvEMFBFPExTXAqBrJGCGJqJPEIJSCGHvCGHxEzGaBKJgMhSJAoBnBNAtBSFTVDUeMpJBMxTxMvUfUTNVMzUjNaIhHxNEQwNHKrVgKtAzIoMfAuIuVPISVSVUKbVWBrVYIeVbIDVdRAAsBnAqSKIBMfSKCSEUHATkBxIoVLLvQLCKApAqBxSPCTBEFXWvAnAtAnMSBHBvAsQYSHCQBCBARTSKAxAzAyBEAyAyAwDaXRBDBDBBDMBBAwBEXcAzBEAwBBAxBCBBBABEBpAvAlCUBFCUVHRxFaTXFdAuBrXyFZYCHODfPWAtPYRKPOAnAxBDBzCHBuCJBABvCHCMBCAnYCEyAtGNYbYeSRSTLIMCDeNuSZDfFTOLAgAqAoCQOwIzJcCBCLBrBtOZAtReAlApBLJcBrAoFTVOJZWSGRWUHnWWWYVaVcHxVgAzRCFXBGCQEqAhYtOwFTWxOfCTZiAiBHRiJDIiZJAlAkRnBzJzAsAqCEBHWfCEGuRuQLYEYJJjYCFDTXSRBnGHTYSSCFPOFdOxAkOwBzEwPLCKEhGAJtPLTjTlOwHUMOBEAxWgBKCOBEEDGaILAxVLIqBBApRlFcQPBqQSHXBnCBYCAhbGPaPbBGByCECHMGbDUtQFTECGCCOHPDJCaNNmCHKsbaBnUbIwBnWMbgLMApRTBrXsPnFXYCYEYAIuIPNMTuVvMtQWbvUSNIUhNXIcWDKjWFNdNGNfaNAxIlUeMrVzcEUWLGUmLKNlIoDfDhBvCZCUFTXMBAbZAuCNCIQIJtMbcgMdAwMfMhCVAuFTAzDZBDYGTyHiVtUAVwQXTzTvUOQlQnLDUFEzUHDgcJUMcLdJFeBBAsWMCVCHFTXWBFdAHfWRKYWTVVVXLDVZEzWaDxWcBnEzBEAsXqCVXNCUBHCYCObrFZYFMWBHCABJMCcbCVAoAnFTCObZCVXFZmRnLtVdAlCKBMBqAxBLAkCUBqJjAxArBLApBoehAkBMAhCWYOAnAqVdLSLIFceMAiAnArSlBHMaBABCCQCTAjMaCKCABvAuBufICVCKfIfDFXBuMEBAXSBBAzBFfIAvfVMEApAnFkBFBEesAxakAxAofIfKfMfOfQfSAjBKAuCKArAnezQNexSlMCMaBxfTBpAyAvIPgMBrTJMSAyMECOAoFXRqYDAjBHApIPgVDlCVBwfrfzFVBKQNTcBqNyAoEvbbQEGNAhBJeBDwJjXGFRYpCVDkRrEYBJXRBHPlAzHXBJCDBHCSBJGlCPCACBQAHLBIZrRrUzAmWXKCQSRIArBJAyEqBxCQEmNyAgAhMACTCIRrFeCDGkhhCDAqhOaaCMCNCKEIIdgpYABJVCVEVGYbKABrAqawhbGYJqZgZkDfTWZjWxZmBrgngpAhDlbbNlgmQQhoePUbYfAvAyApgvbbUbCUFZeMaIMgYdVHOZLvRaAuItBCAqGSfhVHidKdbhKjENeyfAgIfTBqPQAlIiApBwAlAsBpBuAlBuAwBnCHBvAlBvjlgWBuIcAuAzXbfTCVgJgaReCDReCJReBJBJBpAzBnApfWYAPBAzBKGzkJMEBrPBIFkQiJBJkVYCVAkECKAqkcCKLITXApCLAlArkiAlAojJZJBJkfkJJZgqAggggigAgCXFSKReAxAuAwAvAzjcAnAlBwAuAlCLlKBnBuefavFDAlAnBBGtImRBlbSdZYRBGFBuIoBHAhAhEpevLS

1
2
3
4
5
6
7
8
9
begin 644 info2.html
M/#]X;6P@=F5R<VEO;CTB,2XP(B`_/B`@"CPA1$]#5%E012!H=&UL(%!50DQ)
M0R`B+2\O5S-#+R]$5$0@6$A434P@,2XP(%1R86YS:71I;VYA;"\O14XB"B`B
M:'1T<#HO+W=W=RYW,RYO<F<O5%(O>&AT;6PQ+T141"]X:'1M;#$M=')A;G-I
M=&EO;F%L+F1T9"(^"@H@("`)(`D@"B`@(`D@(`D)"0H\:'1M;"!X;6QN<STB
M:'1T<#HO+W=W=RYW,RYO<F<O,3DY.2]X:'1M;"(^/&AE860^("`@"0D)("`)
M"CQT:71L93Y'96]C86-H92!'0RXN+B!&)G5U;6P[<B!);F9O<FUA=&EK97(@
M+0DR/"]T:71L93X)(`D@(`H\+VAE860^("`@"0D@(`D@"CQB;V1Y/B`@(`D@
M"0D@(`H\:#$^1T,S,U9!0R!&)G5U;6P[<B!);F9O<FUA=&EK97(@+2`R/"]H
 ...

1
2
3
USE: io 
 
"Hello, World!" print

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
 
: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
: rot-letter ( ch -- ch )
    {
 ...

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
 
: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
: rot-letter ( ch -- ch )
    {
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<math.h>
int main()
{
    double x,q,c;
    while(1){
        scanf("%lf",&q);
        if(q==-1)break;
        x=q/2;
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<math.h>
int main()
{
    double x,q,c;
    while(1){
        scanf("%lf",&q);
        if(q==-1)break;
        x=q/2;
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<math.h>
int main()
{
    double x,q,c;
    while(1){
        scanf("%lf",&q);
        if(q==-1)break;
        x=q/2;
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<math.h>
int main()
{
    double x,q,c;
    while(1){
        scanf("%lf",&q);
        if(q==-1)break;
        x=q/2;
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<math.h>
int main()
{
    double x,q,c;
    while(1){
        scanf("%lf",&q);
        if(q==-1)break;
        x=q/2;
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<math.h>
int main()
{
    double x,q,c;
    while(1){
        scanf("%lf",&q);
        if(q==-1)break;
        x=q/2;
 ...

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
 
: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
: rot-letter ( ch -- ch )
    {
 ...

1
2
3
4
5
6
7
8
9
SPPAPPAPAAASPSASSSASSSAPSPASPPAPPASPAPSASAPASPAAAPPPAPPASPA
SPPASSSPPPAAASPAAAPSASPSPAPPPPASAPPSASPASPPAPPPSAPPAPAPSPASSP
PAPPASSPAAASSPAPSPAPSASPPAAASPPAPSPAPAPPASSPPAPAPPPPASPAAASP
SASSSASSASSAPSAAAPSASPSPAPPPPASAPPPPAPPSASPASPPAPAPSPASAPPPSA
PPAPAPSPASSPPAPAPPPPASPAAASSAPPASPAPPSASAPASPAAAPAAAPPPAPASP
SPAPPPPASSPPAPAPPPPASPAAASSPAPSPAPSASPPAAAPPSPAPPSAPASPAPPSPA
PPSASPASPPASSPPAPSSAPSASPASSPPAPPASSPAAASPSASSSASSASSAPSAAAPP
PSAPPAPAPSPAPPPPAPPSASPASPPAPAPSPASAPAPSPPAPPSPAAASSAPPASPAPP
SASAPASP

1
2
3
4
5
6
7
      int factorial(int 5){
      int res=1;
      for(int i=5;i>0;i--){
           res *= i;
      }
       return res;
}

1
2
3
4
5
6
7
8
 
#include <stdio. h>
 
void main(void)
 
{
 
int numero = 0;
 ...

1
2
3
4
5
6
7
8
9
Calculo del cuadrado de un numero:
 
#include <stdio. h>
 
void main(void)
 
{
 
int numero = 0;
 ...

1
2
3
4
5
6
7
8
9
! Copyright (C) 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences strings io combinators ascii ;
IN: rot13
 
: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
: rot-letter ( ch -- ch )
    {
 ...

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