Skip to content

Instantly share code, notes, and snippets.

View PlumpMath's full-sized avatar
🏠
Pro

PlumpMath

🏠
Pro
View GitHub Profile
<html>
<head>
<title></title>
<meta charset="utf-8" />
</head>
<body>
<form method="get" action="">
<p>
text:
<!doctype html>
<html>
<head>
<title></title>
<meta charset="utf-8" />
</head>
<body>
<form action="">
<p>
<!doctype html>
<html>
<head>
<title></title>
<meta charset="utf-8" />
</head>
<body>
<p>
text박스의 id/비번 입력후, submit을 누르면 "localhost/method.php?id=입력값"
<!doctype html>
<html>
<head>
<title></title>
<meta charset="utf-8" />
</head>
<body>
<form method="get" action="http://localhost/method.php">
<!doctype html>
<html>
<head>
<title></title>
<meta charset="utf-8"
http-equiv="refresh"
content="4" />
</head>
<body>
<h1> meta http-equiv="refresh" content="4"</h1>
<!doctype html>
<html>
<head>
<script src="http://localhost:8080/skewer"> </script>
<!-- <script src="script.js"></script> -->
<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.1.1/jquery.min.js"></script>
<script>
$(document).ready(function(){
;; https://www.cs.northwestern.edu/academics/courses/325/readings/clos.php
;; 위를 참조했음.. 뭐가 이렇게 어륩냐;;
;; 클래스 정의
(defclass animal () ((name :initarg :name
:initform ""
:type string
)))
(defclass monkey (animal) ())
;; COMMON-LISP
;; http://stackoverflow.com/questions/6003662/how-to-sort-a-list-with-sublists-common-lisp
(sort '(3 2 4 2 1) '>)
;; COMMON-LISP
(defun BIG-NUM-LIST (&rest args)
(let* (
( A args)
( B (sort (cdr A) '<)) ;; 오름차순 (1 2 3 4 5...)
(_t (- (list-length B) (car A)));; B갯수 - 첫입력갯수
)
(nthcdr _t B) ;; clojure처럼 take 함수가 없어서 _t 를 구해 nthcdr를 사용했다.
))
;; COMMON-LISP
(defun BIG-NUM-LIST (&rest args)
(let* (
( A args)
( B (sort (cdr A) '<)) ;; 오름차순 (1 2 3 4 5...)
(_t (- (list-length B) (car A)));; B갯수 - 첫입력갯수
)
(nthcdr _t B) ;; clojure처럼 take 함수가 없어서 _t 를 구해 nthcdr를 사용했다.
))