Solitario klondike para curses en 5k

#include <stdio.h>
int main(void) {
    int c;
    
    for (c = 1; c <= 10; c++)
      printf("%d\n", c);
}

#include <stdio.h>
int main(void) {int c=1;while(printf("%d\n",c),11>++c);}

La idea

Klondike Solitaire en Windows 3.1 (corriendo en PCjs Machines)

Codificando

No se usar curses

Mi juego Klondike para curses en acción

Pulido del juego

El código fuente

#include <stdlib.h>
#include <locale.h>
#include <time.h>
#include <curses.h>
#define H addch
#define L(z) for(z=0;z<52;z++)
#define _ H(ACS_CKBOARD);
#define O 255
#define I if(
#define E else
#define J H(ACS_HLINE);
int W(int *,int *);

             int                 k[O ],         x[ O ],
            b[O],             v [ O ],i,s,     m,a ,z,e,
          w,n,d,t,c,          h,g,j,f,l,y;   void  F(void)
         {d=c[k]; e=          c[x]; f=c[b]; for(g=c;g<51;g
        [k]=k[1+g],g[x]      =x[g+1],g[b]=b[g+1],g++);g[k]=
       d; g[x]=e; g[b]=f;     c=g; } void U(void) { d = O;
      L(c) I !c[x]) d = c;     c = d; I d - O) { c[x] =1;
     b[c] = 0; F(); d = c;      } } void A(void) { m = 1;
     t = O;  l =0;  d = O;       L(c) I !c[x] & b[c]) d
      = c;    I d    - O)         v[l++] = d; e = O;
      L(c)    I x    [c]             == 1 && !c[b])
         e    = c    ;I               e - O ) { I
            d == O                     ) v[l++] =
           d; v[l++                      ] = e;
                                           }

              L(c)                       I c[x]
             >  31                      && !c[b])
            v[l++ ]                    = c; I l>0)
           I v[0] ==                    O) j = 0;
          E j=x[v[0]];                   qsort(
         v,l,sizeof(m),                   &W);}
        void K (void )            { t      = c;     d =
       0; I c[x] >  31)          { L(e)     I      (e[x]
      & 7) == (c[x] & 7))       { I x[e]   > x    [c]) d =
     1; } } } void M(void)      { I c[x] ==e) return; I n &
      2) { I 1 == c[x]) {         I a > 1) a --   ; }  } I
       n & 1) { I e >  2           & e      <      7) s +=
        5; } E { I e >              2      & e       <
         7) s += 10; E                     I x
          [c] == 1) s                      +=5;
           } g = O ;                      L(f) {
             I x[f]                       == c[x]
              - 8)
               {
                   
I b[f]) { I ~n & 1) s += 5; b[f] = 0; g = f; } } } do { h = c[x] + 8;
c[x] = e; F(); e = c[x] + 8; c = O; L(f) I x[f] == h) c = f; } while
(c - O) ; t = O; } int W(int *e, int *h) { return x[*e]-x[*h]; }
int main(int r) { char *S;time_t D=time(0);setlocale(LC_CTYPE, S="");
srand(D); L(c) { for (; v[d = rand() % 52]; ) ; d[b]=d[v]=1;
d[k]=c; } c = 24; for (d = 0; d < 7; d++) for (e = 0; e < d + 1; x[c++] =
d + (e++ + 4) * 8) ; b[24] = b[26] = b[29] = b[33] = b[38] = b[44] = b[51]
= 0; initscr(); raw(); noecho(); start_color(); init_pair(1, COLOR_RED,
COLOR_WHITE); init_pair(2, COLOR_BLACK, COLOR_WHITE); A(); n = r - 1;
I n & 1) s = -52; for(;;) { for (c = 1; c < 5; c++) { for (e = 0; e < 7;
e++) { I e == 2) continue; move(c, e * 6); _ _ _ _ _
I e == 1) { H(32); H(32); H(32); H(32); } } }
L(e) { c = x[e]; g = (c & 7) * 6; I c == 1) { I a > 2 & k[e] == z)
g += 4; I a > 1 & k[e] == y) g += 2; }
h = k[e] / 13; i = k[e] % 13; for(d=0;d<4;d++){ move(c / 8 * 2 + d + 1, g);
if (!d) { H(ACS_ULCORNER); J J J H(ACS_URCORNER); } E if (d == 3) {
H(ACS_LLCORNER); J J J H(ACS_LRCORNER); } E { H(ACS_VLINE);
if (b[e]) { _ _ _ } E { I h < 2) attron(COLOR_PAIR(1));
E attron(COLOR_PAIR(2)); if (d == 2) { H(32); H(32); H(32); } E { I !i)
H(65); E I i < 9) H(49 + i); E I i == 9) { H(49); H(48); } E {
H("JQK"[i - 10]); }
addstr(&"\xe2\x99\xa5\0\xe2\x99\xa6\0\xe2\x99\xa0\0\xe2\x99\xa3"[h * 4]);
I i - 9) H(32); } I h < 2) attroff(COLOR_PAIR(1)); E attroff(COLOR_PAIR(2));
} H(ACS_VLINE); } } } attron(A_NORMAL); w = j % 8 * 6; I j == 1) I n & 2)
w += (a - 1) * 2; move(j / 8 * 2 + 1, w); H(42); I t - O) {
c = x[t]; w = c % 8 * 6; I c == 1) { I n & 2) w += (a - 1) * 2; }
move(c / 8 * 2 + 1, w); H(38); } mvprintw(0, 0, "%sScore: %d   ", S, s);
refresh(); c = getch(); I c == 10) break;
I c == 32) { I m) { I !j) { I v[0] == O) { do { d = O; L(c) I c[x] == 1)
d = c; c = d; I c - O) { c[x] = 0; b[c] = 1; F(); }
} while (c != O); } E { I n & 2) { a = 0; U(); I d - O) a++; U();
I d != O) a++, y = k[d]; U(); I d != O) a++; z = k[d]; } E U();
d = O; L(c) I !c[x]) d = c; } A(); } E { L(d) I j == x[d]) c = d;
K(); m = 0; l = 0; I !d) { for (e = 3; e < 7; e++) { g = O;
L(f) I x[f] == e) g = f; I (g == O & k[c] % 13 == 0) | (g != O &
k[c] % 13 == k[g] % 13 + 1 & k[c] / 13 == k[g] / 13)) { v[l++] = e;
} } } for (h = 0; h < 7; h++) { f = h + 32; g = O; L(e)
I (x[e] & 7) == h & x[e] > 31 & x[e] + 8 > f) { f = x[e] + 8; g = e; }
I (g == O & k[c] % 13 == 12) | (g != O & k[g] % 13 - 1 == k[c] % 13 &
((k[g] / 13) & 2) != ((k[c] / 13) & 2))) v[l++] = f; } I l) j = v[0]; } }
E { c = t; e = j; M(); d = 0; L(c) d+=c[x] < 3 | c[x] > 6; I !d)
S="Won!",s+=n&1?0:700000/difftime(time(0),D);A(); clear();
} } E I c == 9 && l) { I m) { for (c = 0; c < l; c++) I j == ((d = v[c])
- O ? x[d] : 0)) break; j = (d = v[++c % l]) - O ? x[d] : 0; } E { I l)
{ for (c = 0; c<l&j!=v[c]; c++) ; j = v[++c % l]; } } } } endwin(); }

Comentarios

Solitario Klondike

Compilación

Ejecución

    prog
    prog a
    prog a b
    prog a b c
    

Acerca del juego

Jugando

Teclas del juego

Trucos de ofuscación

Jugando mi juego Klondike para curses.

Descarga

• Klondike Solitaire for curses (6.2kb)

Post Mortem

Ligas

• La página oficial del International Obfuscated C Code Contest.
• Mis participaciones previas para el IOCCC.