2

我是 php 新手，我无法弄清楚如何将确切的字符串“ <?php”输出为 HTML 字符串、从文件（即file_get_contents(blah);）输出或echo "<?php";在代码段内输出。我认为它被解释为 php 代码段的开头，因为没有输出数据。任何帮助，将不胜感激。

Haskell中的矩阵除法

怎么了？此代码应该通过查找a时间b倒数来进行矩阵除法。我试图了解它的错误是什么，但我看不到如何链接它。

import List
import Ratio

inverse :: [[Rational]] -> [[Rational]]
inverse mat = sweep ([], zipWith (++) mat unit) where
    unit = map (take (length mat)) $ iterate (0 :) (1 : [0,0..])
    sweep (xss, []) = xss
    sweep (xss, yss) = sweep (xss' ++ [ws], filter (any (/= 0)) yss') where
        Just (x : xs) = find ((/= 0) . head) yss
        ws = map (/ x) xs
        [xss', yss'] = map (map f) [xss, yss]
        f (y : ys) = zipWith (\d e -> e - d * y) ws ys

我怎样才能将它与

import Data.Array

mmult :: (Ix i, Num a) => Array (i, i) a -> Array (i, i) a -> Array (i, i) a 
mmult x y 
    | x1 /= y0 || x1' /= y0'  = error "range mismatch"
    | otherwise               = array ((x0, y1), (x0', y1')) l where
        ((x0, x1), (x0', x1')) = bounds x
        ((y0, y1), (y0', y1')) = bounds y
        ir = range (x0, x0')
        jr = range (y1, y1')
        kr = range (x1, x1')
        l  = [((i, j), sum [x ! (i, k) * y ! (k, j) | k <- kr

通过乘以a和b的逆来进行矩阵除法。

4

2 回答 2

3

应该可以正常工作：

<?php

print "<?php";
于 2012-06-19T15:22:08.657 回答
3

更有可能将其解释为 HTML 标记，请使用

header("Content-type: text/plain");

或将 替换<为&lt;。

于 2012-06-19T15:22:56.177 回答