Mais um blog inútil.

Coding

Agosto 3, 2018

Arvorezinha em Progress 4GL

Arquivado em: arvorezinha, coding, drama, fail, serious-business, useless, work — madinfo @ 16:35

Boa tarde,

Já não blolava á anos… resolvi blolar sobre uma linguagem que se chama Progress 4GL ou OpenEdge Advanced Business Language (OpenEdge ABL).
É uma linguagem linda que mais se devia chamar REGRESS em vez de Progress.

Aqui fica o código:

DEFINE VARIABLE i AS INTEGER NO-UNDO.
&SCOPED-DEFINE NumLoops  5    
DEFINE VARIABLE charz AS CHARACTER NO-UNDO INITIAL "*".

 REPEAT i = 1 TO {&NumLoops}:
     
     DISPLAY charz.
     charz = charz + "*".
END.


MESSAGE "Fim!!"
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

Digam lá que não é a melhor coisa do mundo ?

Março 22, 2015

uSched

Arquivado em: coding, linux — thread @ 01:26

Caros blolistas,

Venho aqui apresentar uma inutilidade que recentemente saiu da pasta Lixo/ para o GitHub e que tem sofrido desde então alguns commits que tentam tornar a coisa um pouco mais útil, dentro dos limites da inutilidade.

Falo-vos do uSched: http://www.usched.org

Para quem não tem acompanhado o #C da PTnet e se deparar com tal coisa, a tendencia será fazer scroll de cima abaixo no site e fechar assim que o footer é atingido… No entanto, venho chamar a vossa atenção para algumas coisas em que isto “até pode dar jeito”.

A ideia não é substituir o ‘cron’, nem mesmo o ‘at’, mas sim ter uma ferramenta que permita agendar a execução de comandos via command-line, ou integrar tais agendamentos noutras aplicações que necessitem de o fazer por as mais variadissimas razões, já que o uSched nos oferece uma serie de bindings para as mais variadas linguagens que por aí andam (excepto Perl… Ruby… por favor… :P… vá… serão suportadas em breve também, não comecem já a chorar).

Indo agora de encontro a alguns exemplos práticos, imaginem que se pretende obter raw data de partições de 30 em 30 segundos:

 $ usc run 'df >> /tmp/df.out' now then every 30 seconds

Claro está que isto também poderia ser feito com um simples while e um sleep na propria shell… mas envolveria muito mais que isso, pois teria que existir a preocupação de: E se a máquina rebootar? (toca a criar um script pra colocar, por exemplo, no rc.local), E se eu quiser que isto pare em determinada hora ou dia ou ano? Algo que se pode resolver com:

 $ usc run 'df >> /tmp/df.out' now then every 30 seconds until to date 2015-04-15

Então e se pretender fazer tal coisa numa máquina remota?

 $ usc -H remote.example.com -U username run 'df >> /tmp/df.out' now then every 30 seconds
 Password:
 $

E dizem-me voces: “E porque não usar SSH?”
Bom… seria uma boa solução no caso de command-line requests… mas se o uSched não suportasse client/server nativamente, seria um problema quando quisessemos integrar tais pedidos remotos em aplicações que façam uso da sua client library… ou seja:

  $usc = new Usched();
  
  $usc->SetHostname("remote.example.com");
  $usc->SetPort("7600");
  $usc->SetUsername("username");
  $usc->SetPassword("password");

  $usc->Request("run 'wget http://myapp.com/run_this_every_day.php' on time 01:00:00 then every 1 day");

As opções inúteis são infinitas, até mesmo criar uma avorezinha over time poderia ser uma boa intuilidade. Todos os dias veriamos o crescimento da mesma!

Bom, sem querer extender muito mais este post, recomendo-vos que dêm uma vista de olhos (com olhos de ver) na home page e github do projecto e caso tenham ideias e/ou queiram contribuir com algo, ficarei muito grato.

Saudações a todos.

Fevereiro 13, 2015

Arvorezinha em R

Arquivado em: arvorezinha, coding — joli @ 12:03

Viva,

Para celebrarem o Carnaval em força, e também porque me deram acesso ;) resolvi trazer-vos uma implementação da arvorezinha em R.
Para quem não sabe, e deixando de lado pormenores técnicos que não interessam nem ao menino jesus, R foi criado por um Cavalheiro no cu do mundo. Sim, na Nova Zelândia!

Apraz-me dizer que R é aprovada pelo RMS, pelo que o seu uso não interfere com a liberdade das pessoas.

Sem mais delonga deixem-me brindar-vos com a minha implementação.

littletree <- function(len) {
 for(i in 1:len) {
 y <- rep(' ',len-i)
 z <- paste(c(y, rep('*',(2*i)-1)), sep="", collapse = "")
 print(z)
 }

 lll <- (len * 2) - 1;
 empty <- ifelse(len %% 2 == 0, (lll/4)+1, (lll/4))
 stern <- ifelse(len %% 2 == 0, (lll/2), (lll/2)+1)
 for(x in 1:as.integer(len/2)) {
 y <- rep(' ', empty)
 z <- paste(c(y, rep('#',stern)), sep="", collapse = "")
 print(z)
 }
}

Como ver uma arvorezinha?

  • Instalar o R (O, pois refiro-me ao ambiente e não à linguagem de programação)
  • Fazer source da função.
  • Executar a função, passando como parâmetro a altura.

Nota: A implementação tem um bug quando a árvore tem altura 1. Fica para o caro leitor como exercício a sua correção.

Muito obrigado e um grande bem haja!

Janeiro 20, 2015

Arvorezinha 2.0 em JavaScript

Arquivado em: arvorezinha, coding, uncategorized — nausea @ 18:06
                    _..._
 Tired of using  .-'     '-.  Are you still using
 different cli  /     _    _\  that incoherent, bug
 ent and serv  /':.  (o)  /__)  ridden, insecure mess
 er languages /':. .,_    |  | that is PHP?
 on all your |': ; /  \   /_/
 web         /  ;  `"`"    }  Would you like to use a
 projects?  ; ':.,         {  modern, general-purpose,
           /      ;        }  web-scale, optimized,
 +-----------------------+ {  object-oriented, scalable,
 |      TESTEMONIALS     |`\  dependency-free, modular,
 | "I installed nodeJS.  |  ; agnostic, baked-in, light-
 | Five seconds of tink- |  | weight, component framework,
 | ering later I solved  |  ; responsive, event-driven,
 | world hunger, effectu |  | non-blocking i/o, efficent,
 | ated peace in the mid |  | perfect for data-intensive
 | dle east and started  |  / an,--.........,-time appli-
 | the first manned miss | ;  .'           -='.sy building
 | ion to jupiter while  |/  .\               'eautiful
 | holding a cigar in one|     \             .'pplications
 | hand and a death-ray  |\~"`_ \          .'gram like its
 | in the other."        ||   `  \      ..'rock out with
 +-----------------------+|  =="''\.==''your cock out
    ~ /; ;/=""      |`| |`|  `
    ~..==`     \\   |`| / /=="` Now You Can With Node.JS!
     ~` ~      /,\ / /= )")     The Cancer of Javascript
    ~ ~~         _')")          has just spread to servers!
    ~ ~   _,=~";`
    ~  =~"|;  ;|       Node.JSbird
     ~  ~ | ;  |       ===========
  ~ ~     |;|\ |    Available via NPM
          |/  \|

Não consigo deixar de nadar contra a corrente do blol/#c, que por norma odeia JavaScript e derivados. Trago-vos uma Arvorezinha 2.0 feita em JavaScript, que à boa moda deste blog, não acrescenta rigorosamente nada de interessante ou novo em relação às implementações anteriores. Podem corre-la na consola de qualquer browser, ou se quiserem crescer alguns centimetros de barba hipster, em node.js.

Futuramente farei algo com as funcionalidades do node, como por exemplo, um servidor de arvorezinhas à moda do phalic 100% RESTful.

var LittleTree = function(altura) {
    this.altura = altura;
}

LittleTree.prototype.makeTree = function() {

    var result = "";

    for (var i = 1; i <= this.altura; i++) {

        for (var j = 0; j < this.altura - i; j++) {
            result += " ";
        }

        for (var j = 1; j <= 2*i - 1; j++) {
            result += "*";
        }

        result += "\n";
    }

    return result;

}

LittleTree.prototype.makeTrunk = function() {

    var result = "";
    var lastLineWidth = this.altura * 2 - 1;

    if (this.altura % 2 > 0) {

        for (var i = 0; i <= (this.altura / 2); i++) {

            for (var j = 0; j <= lastLineWidth / 4 - 1; j++) {
                result += " ";
            }

            for (var j = 0; j <= lastLineWidth / 2; j++) {
                result += "#";
            }

            result += "\n";

        }

    } else {

        for (var i = 0; i <= (this.altura / 2); i++) {

            for (var j = 0; j <= lastLineWidth / 4; j++) {
                result += " ";
            }

            for (var j = 0; j <= lastLineWidth / 2 - 1; j++) {
                result += "x";
            }

            result += "\n";

        }

    }

    return result;
}

LittleTree.prototype.toString = function() {
    return this.altura + ":\n" + this.makeTree() + this.makeTrunk() + "\n";
}

var sizes = {
    1 : null,
    2 : null,
    3 : null,
    4 : null,
    5 : null,
    6 : null,
    10 : null,
    20 : null,
    40 : null,
};

for (size in sizes) {
    console.log(String(new LittleTree(size)));
}

Output:

1:
*
#


2:
 *
***
 x
 x


3:
  *
 ***
*****
 ###
 ###


4:
   *
  ***
 *****
*******
  xxx
  xxx
  xxx


5:
    *
   ***
  *****
 *******
*********
  #####
  #####
  #####


6:
     *
    ***
   *****
  *******
 *********
***********
   xxxxx
   xxxxx
   xxxxx
   xxxxx


10:
         *
        ***
       *****
      *******
     *********
    ***********
   *************
  ***************
 *****************
*******************
     xxxxxxxxx
     xxxxxxxxx
     xxxxxxxxx
     xxxxxxxxx
     xxxxxxxxx
     xxxxxxxxx


...

Update: Conforme prometido, fiz um serviço RESTful baseado neste script powered by node.js + express.io. Demorou 5 minutos a fazer, só com uma mão e enquanto mandava uma cagada, conforme prometido pelo passaroco ali acima.

Novembro 11, 2013

Arvorezinha v1 e v2 - Lisp

Arquivado em: arvorezinha, coding, useless — falso @ 10:55

Ora viva amigos!

Tive uma submissão de arvorezinhas de um comparsa dos mirques, o _Lone_Wolf_ , ele presenteou-nos com as duas versões em Lisp.

v1

(defun arvorezinha (count) (loop for i from 1 to count do (princ(concatenate 'string (make-string i :initial-element #\*) (format t "~%" #\linefeed)))))

v2

(defun arvorezinha2 (height) (loop
    (loop for i from 1 to height do (princ(concatenate 'string (make-string (- height i -1) :initial-element #\ ) (make-string (- (* 2 i) 1) :initial-element #\*) (format t "~%" #\linefeed))))    
    (setf trunk (floor (/ (- (* height 2) 1) 2)))
    (loop for i from 1 to (/ height 2) do
      (if (/= (mod height 2) 0)
          (princ(concatenate 'string (make-string (+ (/ trunk 2) 1) :initial-element #\ ) (make-string (+ trunk 1) :initial-element #\#) (format t "~%" #\linefeed)))
          (princ(concatenate 'string (make-string (+ (ceiling (/ trunk 2)) 1) :initial-element #\ ) (make-string trunk :initial-element #\#) (format t "~%" #\linefeed)))
      )
    )
    (return '*****)
))

Pode-se experimentar o codigo aqui: http://www.compileonline.com/execute_lisp_online.php
Já agora, o que está aí são só funções pelo que estive a ver. Então para experimentar corre-se o seguinte:

;;v1
(arvorezinha 5)
;;v2
(arvorezinha2 5)

Outubro 2, 2013

Arvorezinha 2.0 em Oracle SQL

Arquivado em: arvorezinha, coding, uncategorized — nausea @ 15:54

Ora viva amiguinhos! Antes de mais gostava de vos saudar e agradecer por me acolherem no melhor blog inútil do mundo. Sinto-me como um ilustre convidado com as maiores honrarias, e planeio contribuir com mais postas de programação inútil (logo que seja natural e espontânea).

A minha primeira contribuição é para o projecto árvorezinha. Tenho para vós uma árvorezinha que respeita o RFC 2.0 (já existia uma 1.0) feita em Oracle SQL.

select * from (
 select 'a'||lpad(level, 5,'0') as linha,
  rpad(' ', &altura-level, ' ') || rpad('*', 2*level-1, '*') as arvorezinha
 from dual
 connect by level <= &altura
 union
 select 't'||lpad(level, 5,'0') as linha,
  rpad(' ', ((2*&altura-1)/4)+1, ' ')||rpad('#', (2*&altura-1)/2, '#')
 from dual
 where mod(&altura, 2) = 0
 connect by level <= (&altura/2)
 union
 select 't'||lpad(level, 5,'0') as linha,
  rpad(' ', ((2*&altura-1)/4), ' ')||rpad('#', (2*&altura-1)/2+1, '#')
 from dual
 where mod(&altura, 2) > 0
 connect by level <= (&altura/2)
) order by linha asc;

A implementação usa 3 queries: uma para desenhar o topo (*), e duas para desenhar o tronco (#) nos casos de termos uma arvorezinha de altura par e de altura ímpar.  Utiliza-se a função rpad para criar uma string com caracteres repetidos e foi só implementar as fórmulas presentes no programa-RFC no argumento length do rpad e na clausula connect by.

Para garantir a ordenação das linhas, criei uma segunda coluna ’linha'.

Aqui estão os magníficos resultados:


Infelizmente, não é compatível com MySQL porque a melhor base de dados livre não suporta a clausula connect by level :(

Junho 2, 2013

De onde tudo começou...

Arquivado em: coding — falso @ 20:12

Ora viva!

Ultimamente tenho andado a fazer reverse engineering ao classico do Spectrum o Paradise Café, mas essa historia fica para mais para a frente, entretanto ontem andava ali de volta das minhas cassetes do Spectrum a ver o que tinha para la guardado, e lá no meio achei uma cassete que dizia “SUPER MEGA TAPE”, e claro decidi investigar ;-)

Liguei a aparelhagem old school ao line in, e pus me a gravar a cena, ate conseguir uma qualidade fiável. E fiquei maravilhado com o que achei!

É uma “mix-tape” com vários jogos para o Spectrum que fiz para amigos. E em cada lado pus uma pequena “intro” com “INSTROCOES” (lol). Tudo feito com BASIC, e com altas truques que via na altura nas revistas para esconder as listagens e cenas do género. Isto foi feito quando era bues puto, e provavelmente foi daqui que veio o gosto pelas programações.

tape1

 0{p0} POKE (PEEK 23635+256*PEEK 23636+1),0: REM #017#000#017#006OLHEM OUTRO MIRONE#017#007#017#000
 5{p0} INK 0
 10{p0} FOR a=0 TO 21
 20{p0} LET b=RND*6
 30{p0} PRINT AT a,0; INK b;"\::!!!!!!!!!!INSTROCOES!!!!!!!!!!\::": BEEP .01,a
 40{b1p0} BEEP .01,a
 50{p0} NEXT a
 60{p0} PAUSE 0
 70{p0} CLS
 80{p0} FOR a=0 TO 6
 90{p0} PRINT AT 10,1; INK a;"INSTROCOES DA SUPER MEGA TAPE": PAUSE 5
 100{p0} NEXT a
 110{p0} PAUSE 0
 120{p0} CLS
 130{p0} PRINT AT 0,0; INK 0;"{p7}INSTROCOES DO";AT 0,15; INK 7; PAPER 0; FLASH 1; BRIGHT 1;"SUPER TROLLEY !!!"
 140{p0} INK 0: PRINT AT 2,0;"{p0p7p6}SUPER TROLLEY{p7p7p7p7p7p7p6p4p3p2p1p1p2p3p4p5p6p7b0b1} um jogo com bons graficos(de porcaria).O jogo serve para a gente ir as compras..No primeiro nivel tem que se logo encher os barris de tracinhos(como este{-}).O segundo nivel ja' e' nas compras ,isso e que eu nao sei o que e' para fazer....": PRINT "{p1p2p3p4p5p6p7b0b1} Teclado redefenivel!!!"
 150{p0} PRINT #0;"PULSA UMA TECLA PARA CONTINUAR!!"
 160{p0} PAUSE 0
 170{p0} INK 0: CLS
 180 INK 0:{p0} PRINT AT 0,0;"INSTROCOES DO";AT 0,15; INK 7; PAPER 0; FLASH 1; BRIGHT 1;"SKATE WARS !!!"
 190{p0} PRINT AT 2,0;"{p6}SKATE WARS{p7p1p2p3p4p5p6p7b0b1} e' o desporto do futuro!A gente vamos jogar num estadio de gelo.Voces como sao estupidos nao vao chegar ao nivel 9..As teclas do Jugador 1 sao:X=ESQUERDA..C=DIREITA..J=CIMA..N=BAIXO..K=FOGO E SALTO..As teclas do jugador 2 sao:Z=ESQUERDA..X=DIREITA..K=CIMA..M=BAIXO..L=FOGO E SALTO"
 200 PRINT #0;"PULSE UMA TECLA PARA CONTINUAR!!"
 210 INK 0:{b0b0b0p6p5p0} PAUSE 0
 220 INK 9: CLS
 230 PRINT AT 0,0;"INSTROCOES DO";AT 0,15; INK 7; PAPER 0; FLASH 1; BRIGHT 1;"ARKANOID !!!"
 240 PRINT AT 2,0;"{p6}ARKANOID{p7p1p2p3p4p5p6p7b0b1} um jogo que e' para derrubar paredes, o jogo se eu me lembro tem 32 niveis,mas a partir do 30 sao bue dificeis como o caracas..As teclas sao:1=ESQUERDA..2=DIREITA..A S D F G H J K L=AMANDAR A BOLA.Aquelas letras todas sao para atirar a bola,mas a que da' mais jeito e' o {G}...{p7p7p7p7p6p5p6p7p6p5p4p3p2p1p2p3p4p5p6p6p7b0}"
 250{p0} PRINT #0;"PULSE UMA TECLA PARA CONTINUAR!!"
 260{p0} PAUSE 0
 270 INK 0:{p0} CLS
 280{p0} FOR a=0 TO 64
 290{p0} BEEP .01,a
 300{p0} NEXT a
 310{p0} PRINT AT 10,8;"SUPER MEGA TAPE"
 320{p0} PAUSE 0
 330{p0} RANDOMIZE USR 0: PRINT USR 0: NEW
1000 POKE PEEK 23635+256*PEEK 23636,1
 10 IF INKEY$="1" THEN GO TO 110
 20 IF INKEY$="2" THEN GO TO 140
 30 IF INKEY$="3" THEN GO TO 170
 40 GO TO 10
 50 RESTORE : PAPER 1: CLS : FLASH 0: BORDER 5: INPUT "": LET a$=" SUPER MEGA TAPE ": LET b$=a$
 60 INK 7: PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175
 70 PRINT AT 5,4;"INSTROCOES DO :"
 80 PAPER 5: INK 0: PRINT AT 6,4;"1=GREAT ESCAPE";AT 8,4;"2=CAVEMANIA";AT 10,4;"3=JUNGLE WARRIOR"
 90 FOR i=1 TO 26: PRINT #0; PAPER 6; BRIGHT 1;AT 1,7;b$: GO SUB 20: BEEP .0004,45: GO SUB 20: BEEP .0006,55: GO SUB 20: NEXT i
 100 GO TO 90
 110 INK 7: PAPER 0: BORDER 0: CLS
 120 PRINT "GREAT ESCAPE-Um jogo fixe so que para mim custa muito a passar...": PRINT "Da para redefinir as teclas": PRINT "Cuidado com os guardas."
 130 PAUSE 0: CLS : GO TO 50
 140 INK 7: PAPER 0: BORDER 0: CLS
 150 PRINT "CAVEMANIA-Um jogo bue facil como o caracas tem-se 99vidas,o jogo e' para apanhar ovos num ninho,e mete-los na nossa casa.": PRINT "Teclado redefenivel": PRINT "Cuidado com os vulcoes."
 160 PAUSE 0: CLS : GO TO 50
 170 INK 7: PAPER 0: BORDER 0: CLS
 180 PRINT "JUNGLE WARRIOR-Um jogo que eu nao sei o que e' para fazer mas eu acho que e' para salvar o mulher que esta pendurada numa arvore.Quando a gente perdemos uma vida,a gente transforma-se em um anjinho.": PRINT "Teclado redefenivel.": PRINT "Cuidado com os fantasmas."
 190 PAUSE 0: CLS : GO TO 50

tape3

 1 BORDER 0: INK 0: PAPER 0: CLS
 10 REM #017#007EI OLHEM OUTRO MIRONE#017#000
 20 REM #017#007ESTUPIDO COMO OS#017#000
 30 REM #017#007CAMELOS,ANDA CAMELO!!#017#000
 40 REM #017#007NAO VEZ UM BOI!!!#017#000
 50 REM #017#007ESPECIAL/////#017#000
 60 REM #017#007NAO BEZ UM VOI!!!#017#000
 70 REM #017#007SEUS BORRADAS#017#000
 80 REM #017#007SEUS CAGADAS#017#000
 90 REM #017#007DAQUI FALA#017#000
 100 REM #017#007O PEDRO#017#000
 110 REM #017#007DA#017#000
 120 REM #017#007SUPER MEGA TAPE#017#000

Janeiro 27, 2013

Refeitórios da UNL no Google Calendar

Arquivado em: coding, serious-business — falso @ 04:07

Ora viva!
Após pedidos de muitas famílias venho desta vez blogar sobre algo útil!

Desde que fiz o post sobre a Cantina da FCT/UNL no Google Calendar já tive alguns pedidos para fazer o mesmo para outras escolas da UNL, então hoje decidi por mãos à obra e aqui vai o resultado.

LocalAlmoçoJantar
Faculdade de Ciências e Tecnologia | RefeitórioAdicionarAdicionar
Faculdade de Ciências Médicas | CafetariaAdicionarAdicionar
Faculdade de Ciências Sociais e Humanas | RefeitórioAdicionarAdicionar
Faculdade de Ciências Sociais e Humanas | SnackAdicionarAdicionar
Residência Alfredo de Sousa | RefeitórioAdicionarAdicionar

Os eventos nos calendários são inseridos todos os dias úteis às 4:30.
Já agora para quem não sabe, a grande utilidade destes calendários é que no Google Calendar existe uma opção para nos alertar de eventos através de uma SMS, então com essa funcionalidade pode-se meter a enviar uma SMS todos os dias a avisar o que é a comida na cantina.

Junho 20, 2012

Blocos de endereçamento IP por país

Arquivado em: coding, useless — thread @ 05:46

Bom dia malta das inutilidades.

Venho aqui partilhar mais uma das minhas muitas inutilidades… um escripe em pitão inútil que faz a consulta online de ip address blocks atribuidos a um determinado pais e devolve uma lista dos mesmos.
No site onde faço o request, têm a versão csv disponivel também… mas isso não tem piada e não é inútil pois não poderia usar um html parser e a coisa ia ficar assim meia deslavada e desenquadrada no blol.

A sintaxe não poderia ser mais simples:

$ ./escripe.py acronimo

Eg:

$ ./escripe.py pt
(e receberão uma lista de blocos (um bloco por linha) no formato “from X to Y”)

Cá vai:

#!/usr/bin/python

import sys
import httplib
import re
from HTMLParser import HTMLParser

raw_block_list = []

class ORHTMLParser(HTMLParser):
        def handle_data(self, data):
                pat = re.search(r"^((\d{1,3}\.){3,3}\d{1,3})$", data.strip(' '))

                if pat:
                        raw_block_list.append(pat.group(1))

if len(sys.argv) != 2:
        print "Usage: %s <country acronym>\nExamples:\n\t%s pt\n\t%s fr\n\t%s us" % (eval("sys.argv[0]," * 4))
        sys.exit(1)

try:
        rhost = httplib.HTTPConnection("www.nirsoft.net")
        rhost.request("GET", "/countryip/%s.html" % sys.argv[1])
        pbody = rhost.getresponse().read()
        rhost.close()
except:
        print "Ops..."
        sys.exit(1)

ORHTMLParser().feed(pbody)

paired_block_list = map(lambda start, end: (start, end), raw_block_list[0::2], raw_block_list[1::2])

for pair in paired_block_list:
        print "from", pair[0], "to", pair[1]

Saudações

Maio 30, 2012

Arvorezinha 2.0 - No explicit loops nor conditions, C99 & POSIX Compliant

Arquivado em: arvorezinha, coding, serious-business, useless — thread @ 12:52

Cá vai uma arvorezinha 2.0 totalmente inútil em C, sem loops nem condições (pelo menos, explicitamente)… um verdadeiro apedrejamento aos rins dos recursos. No entanto, está compliant com C99 e POSIX. Não está à prova de numeros demasiado grandes para o seu tamanho… receberão um exit status 1 caso se exceda o temporary size max e uma arvorezinha bem destruida.

Deixando-me de lengalengas… aqui vai:

-- EDIT: Nova versão do code. Não valia a pena criar outro post com mais do mesmo, portanto editei aqui mesmo.

#include <stdio.h>
#include <signal.h>
#include <stdlib.h>
#include <string.h>

#define TEMPORARY_SIZE_MAX 128

int n, l, magic = 0;

void bye(void);
void bazinga(void);
void draw_bottom(void);
void draw_top(void);

void (*magic_matrix[2][2]) (void) = { { &bazinga, &draw_top }, { &bye, &draw_bottom } };


void sigsegv_syntax(int s) {
    printf("Invalid syntax.\n");
    exit(EXIT_FAILURE);
}

void sigsegv_toolarge(int s) {
    printf("Value too large.\n");
    exit(EXIT_FAILURE);
}

void bye(void) {
    exit(EXIT_SUCCESS);
}

void bazinga(void) {
    n = l;
    magic++;

    draw_bottom();
}

void draw_bottom(void) {
    printf("\x1b[%dC\x1b[%dD", (l / 2) * (n & 1) + 1, !(n & 1));
    fwrite(memset((char [TEMPORARY_SIZE_MAX]) { }, 0x23, TEMPORARY_SIZE_MAX), n & 1, l - !(l & 1), stdout);
    fwrite("\n", n & 1, 1, stdout);

    magic_matrix[magic][!!--n]();
}

void draw_top(void) {
    printf("\x1b[%d%c", n - 1, 0x43 + !(n - 1));
    fwrite(memset((char [TEMPORARY_SIZE_MAX]) { }, 0x2A, TEMPORARY_SIZE_MAX), 1, (((l - n) + 1) * 2) - 1, stdout);
    putchar('\n');

    magic_matrix[magic][!!--n]();
}


int main(int argc, char *argv[]) {
    signal(SIGSEGV, &sigsegv_syntax);

    n = l = atoi(argv[1]);

    signal(SIGSEGV, &sigsegv_toolarge);

    draw_top();

    return EXIT_SUCCESS;
}

PoC:

# gcc -Wall --std=c99 -o arv2 arv2.c
# ./arv2 15
              *
             ***
            *****
           *******
          *********
         ***********
        *************
       ***************
      *****************
     *******************
    *********************
   ***********************
  *************************
 ***************************
*****************************
       ###############
       ###############
       ###############
       ###############
       ###############
       ###############
       ###############
       ###############
# echo $?
0
#