DeTeam

Shoes.app(:title => 'FTP File Uploader', :width => 500, :height => 400, :resizable => false) do
  require 'net/ftp'
  background gradient rgb(255, 255, 255), rgb(150, 150, 150), :angle => 45
  
  stack :margin => 20 do
  
  end
end

DeTeam

Shoes.app(:title => 'FTP File Uploader', :width => 500, :height => 400, :resizable => false) do

  require 'net/ftp'

  background gradient rgb(255, 255, 255), rgb(150, 150, 150), :angle => 45

  stack :margin => 20 do
    caption 'FTP File Uploader'

    flow :margin => 3 do

DeTeam

Shoes.app(:title => 'FTP File Uploader', :width => 500, :height => 400, :resizable => false) do

  require 'net/ftp'

  background gradient rgb(255, 255, 255), rgb(150, 150, 150), :angle => 45

  stack :margin => 20 do
    caption 'FTP File Uploader'

    flow :margin => 3 do

DeTeam

import Data.List
import Data.List.Split
import Data.Maybe
import Data.Char

{-

  http://projecteuler.net/index.php?section=problems&id=22
  
  Using names.txt (right click and 'Save Link/Target As...'), a 46K text file containing over five-thousand first names, begin by sorting it into alphabetical order. Then working out the alphabetical value for each name, multiply this value by its alphabetical position in the list to obtain a name score.

DeTeam

tmp = Tempfile.new("out")
tmp << "things"
tmp.close

puts File.read(tmp.path)

DeTeam

import Control.Monad
import Data.List


-- !! TODO: обернуть всю эту красоту в модуль, мб отдельные типы данных добавить


{-
  Супер классная штука для формирования списка списков %)
  Да, ее надо запомнить

DeTeam

module ConceptCode (
  up,
  down
) where

import Control.Monad
import Data.List


{-

DeTeam

import Control.Concurrent
import Control.Concurrent.Chan
import System.Random

delayedOutput :: String -> Chan String -> IO ()
delayedOutput m c = do
  gen <- newStdGen
  let (t, _) = randomR (1, 10) gen

  -- delay in microseconds

DeTeam

import Control.Concurrent
import Control.Concurrent.Async
import System.Random

delayedOutput :: String -> IO ()
delayedOutput m = do
  gen <- newStdGen
  let (t, _) = randomR (1, 10) ge
  -- delay in microseconds
  threadDelay (t * 1000000)

DeTeam

// It JavaScript it's okay to do like that:
friend.gift = function(){
  var deferred = $.Deferred();
  somewhenInFuture(function(gift){
    deferred.resolve(gift);
  })
  return deferred.promise();
}