no longer on github no-longer-on-githu-b
no-longer-on-githu-b
/ transaction.hs
Created
July 25, 2015 08:37
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| do | |
| balanceA <- newTVarIO (400 :: Int) | |
| balanceB <- newTVarIO (900 :: Int) | |
| replicateM_ 100 . forkIO $ do | |
| atomically $ do | |
| modifyTVar balanceA (\x -> x + 2) | |
| modifyTVar balanceB (\x -> x - 2) | |
| readTVarIO balanceA >>= print | |
| readTVarIO balanceB >>= print |
no-longer-on-githu-b
/ gist:2011e40f6e9fb3ff8fb5
Created
June 18, 2015 07:30
Publish–subscribe in Go
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| package main | |
| import ( | |
| "fmt" | |
| "sync" | |
| "time" | |
| ) | |
| type Publisher struct { | |
| mutex sync.RWMutex |
no-longer-on-githu-b
/ gist:850b1c6ea4c96c85a657
Created
June 14, 2015 15:57
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| function signin_required($login_page, $fn) { | |
| return function($db) use ($fn, $login_page) { | |
| if (array_key_exists('user_id', $_SESSION)) | |
| $fn($db); | |
| else engine\redirect($login_page); | |
| }; | |
| } |
no-longer-on-githu-b
/ gist:39ab58cbf6995fd69817
Last active
August 29, 2015 14:22
Thread-unsafety in Rust
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use std::sync::{Arc, Mutex}; | |
| use std::thread; | |
| fn main() { | |
| let p = Arc::new(Mutex::new(0)); | |
| for _ in 1..100 { | |
| let x = p.clone(); | |
| thread::spawn(move || { | |
| let n; |
no-longer-on-githu-b
/ hangman.cob
Last active
August 29, 2015 14:19
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| identification division. | |
| program-id. hangman. | |
| data division. | |
| working-storage section. | |
| 01 state. | |
| 05 word pic A(100). | |
| 05 word-length pic 9(3). | |
| 05 guess pic A. | |
| 05 guesses occurs 256 times pic 9. |
no-longer-on-githu-b
/ greet.java
Created
April 2, 2015 08:50
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| class Builder{ | |
| String message = ""; | |
| Builder greet(string only_one){ | |
| message += "Hello " | |
| message += only_one; | |
| } | |
| Builder greet(string first, string... rest){ | |
| greet(first); |
no-longer-on-githu-b
/ gist:4d672d1017ae6521d4ce
Last active
August 29, 2015 14:16
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import java.io.InputStream | |
| import java.util.Locale | |
| import javax.servlet.http.{HttpServletRequest, HttpServletResponse} | |
| import org.apache.commons.io.IOUtils | |
| import scala.collection.JavaConverters._ | |
| case class ConnectionInfo(localAddress: String, | |
| localHost: String, | |
| localPort: Int, | |
| remoteAddress: String, |
no-longer-on-githu-b
/ gist:66a5b7f96cf1cfe20fcd
Created
February 28, 2015 16:30
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| def abs(x: Number)(ensure out >= 0): Real = | |
| x | |
| |> non-zero-parts() | |
| |> map(fn(x) => x ^ 2) | |
| |> sum() | |
| |> sqrt() | |
| specialize def abs(x: Real): Real = | |
| if x < 0 { -x } else { x } |
no-longer-on-githu-b
/ gist:2a1ecebf15e0f5ffc4c8
Created
February 28, 2015 16:30
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| def abs(x: Number)(ensure out >= 0): Real = | |
| x | |
| |> non-zero-parts() | |
| |> map(fn(x) => x ^ 2) | |
| |> sum() | |
| |> sqrt() | |
| specialize def abs(x: Real): Real = | |
| if x < 0 { -x } else { x } |
no-longer-on-githu-b
/ gist:0b52c4d7737ba2850f11
Created
February 28, 2015 16:30
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| def abs(x: Number)(ensure out >= 0): Real = | |
| x | |
| |> non-zero-parts() | |
| |> map(fn(x) => x ^ 2) | |
| |> sum() | |
| |> sqrt() | |
| specialize def abs(x: Real): Real = | |
| if x < 0 { -x } else { x } |