This file contains 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
#light | |
// ported from the C#: http://www.dreamincode.net/code/snippet2556.htm | |
open System | |
open System.Net | |
open System.Text | |
let postTweet username password tweet = | |
let user = Convert.ToBase64String(Encoding.UTF8.GetBytes(username + ":" + password)) | |
// determine what we want to upload as a status | |
let bytes = Encoding.ASCII.GetBytes("status=" + tweet) |
This file contains 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
open System.IO | |
open System.Xml | |
let initDir = @"C:\Users\Workspace\Storm.Xsor-SDP-clean" | |
let fileSet = | |
Directory.GetFiles(initDir, "*.*", SearchOption.AllDirectories) | |
|> Seq.filter (fun path -> not (path.EndsWith(".csproj") || path.EndsWith(".sln") || path.Contains(".svn") )) | |
|> Seq.map (fun path -> path.Replace(initDir, "")) | |
|> Set.ofSeq |
This file contains 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
// scrip for finding problem "svn: Attempt to add tree conflict that already exists" | |
open System.IO | |
let logLines = | |
File.ReadAllLines @"C:\USERS\Visual Studio 2008\Projects\FindDup\FindDup\svnlog.txt" | |
|> Seq.filter (fun x -> x.StartsWith("Tree conflict:")) | |
|> Seq.groupBy (fun x -> x) | |
|> Seq.map (fun (key, vals) -> key, Seq.length vals) | |
|> Seq.filter (fun (_, count) -> count > 1) |
This file contains 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
module LP | |
open System | |
open System.IO | |
open System.Text.RegularExpressions | |
/// Opens the given file and returns a sequence of it's lines. This sequence is lazy, as lines are consumed they | |
/// will be read from the disk. This is useful for large files as it provides a convient way to read them without | |
/// pulling them all into memory | |
let readAllLinesLazy file = | |
seq { use textReader = new StreamReader(File.Open(file, FileMode.Open, FileAccess.Read)) |
This file contains 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
open System.IO | |
open System.Collections.Generic | |
let rec getSize = | |
let memorize = new Dictionary<string, int64>() | |
fun dir -> | |
if memorize.ContainsKey(dir) then | |
memorize.[dir] | |
else | |
let size = |
This file contains 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
string myPhrase = "Hell is round the corner where I shelter"; | |
myPhrase = string.Replace(myPhrase, "Hell", "Hevean"); |
This file contains 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
string myPhrase = "Hell is round the corner where I shelter"; | |
myPhrase = myPhrase.Replace("Hell", "Hevean"); |
This file contains 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
let (|>) x f = f x |
This file contains 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 A { | |
static void AMethod(MyBase myBase) { | |
myBase.AMemberMethod(); | |
} | |
} |
This file contains 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 A { | |
private List<string> myList = new List<string>(); | |
private List<string> GetCurrentItems(){ | |
return new List<string>(myList); | |
} | |
} |
OlderNewer