josecolella

#!/usr/bin/env python3
# Author: Jose Miguel Colella

import urllib.request as http
import os.path
import re
import pprint

# The url of the essay
essayUrl = 'http://treehouse-forum-contests.s3.amazonaws.com/visualizing-information/part-one/essays-first-series.txt'

oskyar

#!/usr/bin/perl

#       CopyRight 2014 Óscar Zafra (oskyar@gmail.com)
#
#       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,

treffynnon

var http = require('http');
http.createServer(function (req, http_res) {
  http_res.writeHead(200, {'Content-Type': 'text/plain'});
  var response = '';

  var cradle = require('cradle');
  var connection = new(cradle.Connection)('https://subdomain.iriscouch.com', 443, {
      auth: { username: 'username', password: 'password' }
  });

wfarr

› git show i-herd-u-liek-chef:foo
bar

› git show i-herd-u-liek-chef~1:foo
fatal: Path 'foo' exists on disk, but not in 'i-herd-u-liek-chef~1'.

terceranexus6

#!/bin/bash
#by @terceranexus6
#this is a haiku writer

read -p"write firt line: " LINEA1
read -p"write second line: " LINEA2
read -p"write third line: " LINEA3
read -p"name of the haiku (add .txt): " NOMBRE

touch $NOMBRE

windytan

@size       = (1920, 1080);
@center     = (-.743653135, .131826563);
$zoom       = .000014628;
$max_it     = 700;
$oversample = 2;

$_ *= $oversample for (@size);
open $fh, "|-", "convert -size ".join("x",@size)." -depth 8 gray:- ".
                "-resize ".(100/$oversample)."% mandel.png";
for $py (1 .. $size[1]) {

cecimerelo

PLAYING CARDS

---

Here we have the code of the program. <((1,2,3,4,5,6,7,8,9,10,'J','Q','K') X ("♠","♥","♦","♣")).roll>

<((1,2,3,4,5,6,7,8,9,10,'J','Q','K') X ("♠","♥","♦","♣")).pick(52)>

<roll> is used for picking any card randomly.

ElenaMerelo

#Deck of cards First we pick a random card, then in the second line we shuffle the whole deck of cards, including the one chosen

((1,2,3,4,5,6,7,8,9,10,'j','q','k') X~ <♥,♦,♣,♠>).roll

((1,2,3,4,5,6,7,8,9,10,'j','q','k') X~ &lt;♥,♦,♣,♠&gt;).pick(52)

MattOates

$ perl6 -MBioInfo
To exit type 'exit' or '^D'
> my @dna = `
* >id comment
* CCCGAACGGCTT
* `;
[>id comment
CCCGAACGGCTT
]
> @dna[0].translate

AlexDaniel

⚠⚠⚠⚠⚠⚠⚠ ↓↓↓ PAGE MOVED ↓↓↓ ⚠⚠⚠⚠⚠⚠⚠

I moved this page to rakudo wiki. A lot of people wanted to add stuff, but gists are not editable. A wiki is a more appropriate place for this kind of stuff. Rakudo wiki is possibly not the best place for it, but for now that will do.

Plus, GitHub gists totally suck when unicode characters are involved. There's also no preview option here. So I'm glad that it is being moved.

⚠⚠⚠⚠⚠⚠⚠ ↑↑↑ PAGE MOVED ↑↑↑ ⚠⚠⚠⚠⚠⚠⚠

Recently Perl 6 got support for various unicode characters (½ ¹ ∞ × ÷, see this link for a full list), but I don't think that we are done. Here is a list of things to think about.