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 ?

Ora viva, Eu recentemente tenho tido vários problemas com as internets da NOS à noite, e isso tem me feito andar a fazer diversos telefonemas a reclamar e a ser sempre obrigado a correr o speedtester deles. Até há poucos dias era uma cena normal.js que funcionava na maioria dos browsers, e uma applet JEWVA para o IE com extra faggotry. Mas agora decidiram INOVAR, e quando se inicia o teste, força o download de um .exe que supostamente tens que correr para fazer o speedtest, se não tiveres Windoze, azarito, não tens direito a te queixares com problemas de internets. ...

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”. ...

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.

_..._ 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. ...

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: ...

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. ...

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! ...

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çoJantarFaculdade de Ciências e Tecnologia | RefeitórioAdicionarAdicionarFaculdade de Ciências Médicas | CafetariaAdicionarAdicionarFaculdade de Ciências Sociais e Humanas | RefeitórioAdicionarAdicionarFaculdade de Ciências Sociais e Humanas | SnackAdicionarAdicionarResidência Alfredo de Sousa | RefeitórioAdicionarAdicionar ...