tvirolai

## ids.cljs
(defn square
  [enemy? {:keys [clicked? ship?] :as p}]
  (let [c (str "square"
               (when (and ship? (or (false? enemy?) clicked?))
                 " has-background-primary"))]
    ^{:key (str "row-" (gensym))}
    [:div {:class c}]))

(defn row [enemy? r]
  ^{:key (str "row-" (gensym))}

## grid-1.cljs
(defn row [enemy? r]
  [:div.row.horizontal-flex
   (map (partial square enemy?) r)])

(defn draw-grid [enemy? grid]
  (map (partial row enemy?) grid))

(defn home-page []
  [:div
   (draw-grid false (l/make-grid))]

## home-page-1.cljs
(defn home-page []
  (square {:clicked? true :ship? true} true))

## square.cljs
(defn square
  [{:keys [clicked? ship?] :as p} enemy?]
  (let [c (str "square"
               (when (and ship? (or (false? enemy?) clicked?))
                 " has-background-primary"))]
    [:div {:class c}]))

## site.css
.square {
  width: 20px;
  height: 20px;
  display: inline-block;
  box-sizing: border-box;
  border: 1px solid;
  border-left: none;
  border-bottom: none;
  min-width: 20px;
}

## battleship02.html
<!DOCTYPE html>
<html>
  <head>
    <title>Battleship</title>
    <meta charset="utf-8">
    <meta content="width=device-width, initial-scale=1" name="viewport">
    <link href="/css/site.css" rel="stylesheet" type="text/css">
    <link href="https://cdnjs.cloudflare.com/ajax/libs/bulma/0.7.5/css/bulma.min.css" rel="stylesheet" type="text/css">
    <script defer src="https://use.fontawesome.com/releases/v5.3.1/js/all.js"></script>
  </head>

## battleship01.cljs
(ns battleship.logic)

(defrecord Cell [x y clicked? ship?])

(defn make-grid []
  "This initializes an empty grid. The grid is sized 10 x 10. Each cell stores
  its coordinates, whether it has been clicked or not and if it contains a ship."
  (vec (for [y (range 10)]
    (vec (for [x (range 10)]
      (->Cell x y false false))))))

## harj5-3.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                tvirolai
                / harj5-3.md
            
            
              Created
              October 28, 2018 15:31
            
          
    Jee jee toimiiks
public static void main(String[] args) {
  System.out.println("jeppajee");
 }

  
## Äijästory
aijaStory=(()=>{const a=(a,i)=>Math.floor(Math.random()*i+a),i=i=>i[a(0,i.length)],t=i(["äijät","leidit","frendit","äijä","vaimo","kundi","jätkät","homiet","homot","pellet","dudet","jäbä","spede","dude"]),s=i(["siistii","hyvä","helmee","äijää","siistii","asiallist","kuulii"]),e=i(["thaikuis","briteis","jenkeis","indois","baaris","balil","japanis","malil","mäkis","pohjoisnaval","turkis","olympialaisis","ausseis","brasseis","meksikos","kanadas","gobin aavikol","kapkaupungis","lontoos","intias","asuntomessuil","pakistanis","etelä-naval","tiibetis","kiinas","siperias","x-gamesis","ymca:s","tongal","tulivuores","lontoos","muukalaislegioonas","vietnamis","etelä-koreas","luolas","vankilassa","fudiksen mm-finaalis","pohjois-koreas","viidakos","hervannas","superbowlissa","hesburgeris","lastentarhassa"]),n=i(["surffaa","skeittaa","reilaa","roadtripil","daivaa","suunnistaa","kiipeilee","ryyppää","parkouraa","seilaa","wakeboardaa","työharjottelus","kokkaa","metsästää","ampumas","juoksee","bodaamas","deejiinä","ratsastaa"

## 248iFi2Ma.rul
// Info: Käsitellään 248
248$g           | <I48$G          | S; RegReplaceTable('roomalaiset-arabialaisiksi.tbl')
248$h           | <I48$H          | S
248$b           | <I48$B          | S
248$r           | <I48$R          | S
248$c           | <I48$C          | S
248$d           | <I48$D          | S
248$e           | <I48$E          | If (Exists($d)) Then S
248$e           | <I48$D          | If (Not Exists($d)) Then S
	(defn square
	[enemy? {:keys [clicked? ship?] :as p}]
	(let [c (str "square"
	(when (and ship? (or (false? enemy?) clicked?))
	" has-background-primary"))]
	^{:key (str "row-" (gensym))}
	[:div {:class c}]))

	(defn row [enemy? r]
	^{:key (str "row-" (gensym))}
	(defn row [enemy? r]
	[:div.row.horizontal-flex
	(map (partial square enemy?) r)])

	(defn draw-grid [enemy? grid]
	(map (partial row enemy?) grid))

	(defn home-page []
	[:div
	(draw-grid false (l/make-grid))]
	(defn home-page []
	(square {:clicked? true :ship? true} true))
	(defn square
	[{:keys [clicked? ship?] :as p} enemy?]
	(let [c (str "square"
	(when (and ship? (or (false? enemy?) clicked?))
	" has-background-primary"))]
	[:div {:class c}]))
	.square {
	width: 20px;
	height: 20px;
	display: inline-block;
	box-sizing: border-box;
	border: 1px solid;
	border-left: none;
	border-bottom: none;
	min-width: 20px;
	}
	<!DOCTYPE html>
	<html>
	<head>
	<title>Battleship</title>
	<meta charset="utf-8">
	<meta content="width=device-width, initial-scale=1" name="viewport">
	<link href="/css/site.css" rel="stylesheet" type="text/css">
	<link href="https://cdnjs.cloudflare.com/ajax/libs/bulma/0.7.5/css/bulma.min.css" rel="stylesheet" type="text/css">
	<script defer src="https://use.fontawesome.com/releases/v5.3.1/js/all.js"></script>
	</head>
	(ns battleship.logic)

	(defrecord Cell [x y clicked? ship?])

	(defn make-grid []
	"This initializes an empty grid. The grid is sized 10 x 10. Each cell stores
	its coordinates, whether it has been clicked or not and if it contains a ship."
	(vec (for [y (range 10)]
	(vec (for [x (range 10)]
	(->Cell x y false false))))))
	// Info: Käsitellään 248
	248$g \| <I48$G \| S; RegReplaceTable('roomalaiset-arabialaisiksi.tbl')
	248$h \| <I48$H \| S
	248$b \| <I48$B \| S
	248$r \| <I48$R \| S
	248$c \| <I48$C \| S
	248$d \| <I48$D \| S
	248$e \| <I48$E \| If (Exists($d)) Then S
	248$e \| <I48$D \| If (Not Exists($d)) Then S