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
| lut2_1 : lut2 generic map (init => "1000") | |
| portmap (i0 => lava(5), i1 => lava (6), | |
| o => lava(4)) ; |
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
| let f s g = g|>List.mapi(fun i x->match Seq.sumBy(fun o-> | |
| g.[abs((i+o)%(s*s))])[-1-s;-s;1-s;-1;1;-1+s;s;1+s]with 3->1|2->x|_->0) |
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
| life=->g,s{(0..s*s-1).map{|i|->n{n==3||(g[i]&&n==2)||nil} | |
| [[g[i-s-1],g[i-s],g[i-s+1],g[i-1],g[i+1],g[i+s-1],g[i+s],g[i+s+1]] | |
| .compact.count]}} |
kunjee17
/ Programe.fs
Last active
December 18, 2015 00:09
F# with Servicestack and Razor viewengine on heroku
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
| // NOTE: If warnings appear, you may need to retarget this project to .NET 4.0. Show the Solution | |
| // Pad, right-click on the project node, choose 'Options --> Build --> General' and change the target | |
| // framework to .NET 4.0 or .NET 4.5. | |
| module ServiceStackHeroku.Main | |
| open System | |
| open System.Collections.Generic | |
| open System.Net | |
| open ServiceStack | |
| open ServiceStack.ServiceInterface |
NewerOlder