- Chef または PowerShell DSC でクリーンな環境にソフトをインストールする
- UI Automation をラップした 内部 DSL で対象ソフトを操作
- 画面をキャプチャして指定サイズに切り取る
- 指定ファイルに保存する
- 2~4 を繰り返す
- ImageMagick を使用して、作成した画像とリポジトリ内の画像を比較
- 差異がある画像をコミットする
- 7 の画像名をメールで通知
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 | |
open System.IO | |
open System.Drawing | |
type Kind = Text | Image | |
let recognize filePath = | |
let ext = Path.GetExtension(filePath).ToLowerInvariant() | |
match ext with | |
| ".bmp" |
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 perfectNumbers n = | |
let isPerfect n = | |
[1 .. n / 2] | |
|> List.filter (fun i -> n % i = 0) | |
|> List.sum = n | |
[1 .. n] | |
|> List.filter isPerfect |
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
using System; | |
using Android.Content; | |
using Android.Graphics; | |
using Android.Views; | |
using TurtleGraphics.Library; | |
namespace TurtleGraphics | |
{ |
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
using System; | |
using Android.App; | |
using Android.Content; | |
using Android.Runtime; | |
using Android.Views; | |
using Android.Widget; | |
using Android.OS; | |
namespace TurtleGraphics |
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
namespace TurtleGraphics.Library | |
module KochCurve = | |
open System | |
let rec private move n (f: Action<int, int, int, int>) (t:Turtle) = | |
match n with | |
| 0 -> | |
let rad = Math.PI / 180.0 | |
let x = int (t.step * cos (rad * t.angle)) + t.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
namespace TurtleGraphics.Library | |
type Turtle = { x: int; y: int; step:float ; angle: float } | |
with member this.turn a = | |
{ this with angle = (this.angle + a) - float (int this.angle) + float (int this.angle % 360) } |
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
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> | |
<PropertyGroup> | |
<TargetFrameworkIdentifier>MonoAndroid</TargetFrameworkIdentifier> | |
<MonoAndroidVersion>v1.0</MonoAndroidVersion> | |
<TargetFrameworkVersion Condition="'$(TargetFrameworkVersion)' == ''">v2.2</TargetFrameworkVersion> | |
<AndroidLinkMode Condition="'$(AndroidLinkMode)' == ''">SdkOnly</AndroidLinkMode> | |
</PropertyGroup> | |
<Import Project="$(MSBuildExtensionsPath32)\FSharp\1.0\Microsoft.FSharp.Targets" Condition="!Exists('$(MSBuildBinPath)\Microsoft.Build.Tasks.v4.0.dll')" /> | |
<Import Project="$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets" Condition=" Exists('$(MSBuildBinPath)\Microsoft.Build.Tasks.v4.0.dll')" /> | |
<Import Project="Novell.MonoDroid.Common.targets" /> |
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
<Import Project="$(MSBuildExtensionsPath)\Novell\MonoDroid.FSharp.targets" /> |
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
<Import Project="$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets" Condition=" Exists('$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets')" /> |